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Cuando en Marzo del año pasado, en 
nuestros juegos a 875 ptas., fueron mi 
locos, que nos íbamos a arruinar, que 
juegos origínales, que nos estrellarían 

Pero se equivocaron. Y se equivocar® 
que en ERBE contábamos. ¡¡TU APOY' 

Ha sido gracias a tí y a tu decisión 
hayamos conseguido nuestro objetive» 

Por eso, para agradecértelo y celebrar 
precios: 

*Por cada juego que compre* 
de este año, podrás llevarte olí 

Aprovéchate, 5 
dos juegos y p 

Y es que en l¡pl¡J¡|if ¡¡L 


* Oferta válida sólo para los juegos del catálogo ERBE de 875 ptas. 











































ERBE decidimos bajar los precios de 
uchos los que dijeron que estábamos 
nunca conseguiríamos que compraras 
ios... que bla bla bla bla bla... 

i en algo importantísimo. Algo con lo 
Oü 

de comprar juegos origínales el que 
el primer aniversario de la bajada de 


s entre el 1 y el 31 de Marzo 
Ero, el que tú elijas, de regalo. 

’ m ■ ■ .. . 

>n Marzo elige 
aga solo uno. 

A. LOCURA CONTINUA!! 
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6 HOY POR HOY 

Amstrad fabricará sus 
productos en España. 


29 ULTIMA HORA 

Erbe Software, va a regalar 
durante el mes de marzo, un 
juego gratis por cada uno que 
se compre. 


CPC 



12 CALCULADORA 

Una utilidad como ésta dentro 
del ordenador siempre nos va 
a ser necesaria. En todo caso, 
lo que la hace insustituible es 
que nuestra calculadora es 
residente, es decir, puede ser 
invocada desde dentro de 
cualquier programa que usted 
esté ejecutando en su CPC. 




16 PROGRAMANDO JUEGOS 
DE AVENTURAS 

Inauguramos una sección que, 
a lo largo de una serie de 
artículos, revelará a los 
lectores todos los secretos de 
este tipo de juegos de forma 
sencilla, ágil y divertida. 
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20 SISTEMAS DE 
PROTECCIÓN 

El lector curioso encontrará, 
sin duda, muy interesante 
averiguar cómo funcionan los 
sistemas de protección más 
típicos y sofisticados. Desde 
ahora, queda prohibido el 
acceso no autorizado a 
nuestros programas. 


Juegos 


38 ESTE MES... GRIZOK 

Una historia fascinante,.en el 
más puro estilo arcade, que 
nos obliga a una constante 
superación para sobrevivir, 
dentro del marco de unos 
excelentes y cuidados 
gráficos. 
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40 ESTE MES... LA ABADÍA 
DEL CRIMEN 

De vez en cuando aparece un 
juego que rompe moldes e 
impone un nuevo listón de 
calidad e imaginación. La 
Abadía del crimen, con unos 
sorprendentes gráficos 
tridimensionales, escenifica 
perfectamente el conocido 
libro El nombre de la rosa. El 
cuidado que se ha puesto en 
la lógica del juego, hace que 
los personajes estén 
materialmente vivos. Cada uno 
posee una conducta propia, 
personalizada y a veces 
impredecible. Basta una 
palabra para definir a esta 
creación de Paco Suárez: 
¡chapeau! 



44 ESTE MES,,, MARBLI 
MADNESS 

CONSTRUCTION SET 

Los autores de un juego que 
convenció en su momento, nos 
ofrecen ahora una aplicación 
que permite crear, a nuestro 
gusto, pantallas idénticas a las 
del juego original y 
ejecutarlas. Como de 
costumbre en este tipo de 
juegos-herramienta, el único 
límite es la imaginación. 
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46 PREVIEWS 

Comentamos lo mejor y lo más 
actual del soft de juegos. 



PC 


72 TRUCOS OEM 

Todos los errores del Gem 
Basic, explicados uno por uno. 


74 MS DOS 

Los primeros pasos que todo 
usuario de un PC debe 
recorrer para comenzar a usar 
con éxito el sistema operativo. 



76 GEMBASE 

Hemos creado una base de 
datos con prestaciones 
profesionales, escrita en 
Basic2, que combina velocidad 
y potencia con la facilidad de 
uso propia del Gem. 
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D omínguez comenzó dando 
la cifra global de ventas de 
la compañía, más de 
25.000 millones de pesetas, que 
supone un crecimiento 
espectacular, como viene siendo 
habitual desde que apareció en el 
mercado español. Sin embargo, su 
objetivo para los próximos años 
es la consolidación, porque «no 
se puede estar duplicando las 
cifras cada año», según dijo 
el presidente de Amstrad 
España. 

El balance muestra una mayor 
penetración de los productos 
Amstrad en el mercado de la 
informática personal, «donde se 
ha destacado como líder 
indiscutible en la gama de los 
compatibles». 

A continuación, dio una 
relación de la cantidad de 
unidades vendidas en cada uno de 
los productos. Los CPCs, que 
desde hace algún tiempo venían 


la 


Qüe 


siendo objeto de 
rumores sobre su 
posible desaparición 
y que José Luis 
Domínguez se encargó de 
desmentir rotundamente, han 
tenido «una explosión de ventas», 
con cerca de 107.000 unidades, 
que esperan incrementar en 
este año y llegar a las 120.000. 

Bastante más modestos han sido 
los resultados de los PCWs, con 
20.000 unidades. Las razones se 
encuentran, según Domínguez, en 
la campaña realizada para el PC 
1512, que ha tenido como 
resultado un parón en las ventas 
de los PCWs. Pero espera 
«recuperar lo perdido» en este 
año, ya que «pensamos que es un 
producto con futuro que sustituirá 
a la máquina de escribir... y 
además es un ordenador 
personal». Sus previsiones se 
sitúan alrededor de las 35.000 
unidades. 


¿25* * „ oa -' 

rf v s(s .>a*, e „ "oo fco„ eí 1 
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Las ventas de PCs han 
alcanzado las 81.000 unidades, 
por debajo de lo previsto, 
debido a que «las huelgas de 
Corea provocaron una restricción 
en el suministro del material», 
pero espera llegar a las 100.000 
unidades durante el año en curso. 

En cuanto a los Spectrum, la 
cifra superó las 62.000 unidades, 
duplicando la del año anterior. 
Para Domínguez este es un 
mercado importante, «es el 
mercado de los más jóvenes, de 
los que se inician en la 
informática». Por esto, y por el 
reciente éxito de las Jornadas de 
Iniciación a la Informática, 
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José Luis Domínguez anunció la puesta en 
fábrica Amstrad en España y el lanzamiento 


marcha de dos proyectos esperados: una 
del compacto de vídeo y televisión. 


piensan repetir esta experiencia en 
la mayoría de las ciudades 
españolas durante el año 88 y 
llegar a la cifra de 100.000 
unidades vendidas. 

Audio, vídeo 
e impresoras 

El mercado audiovisual ha 
tenido un aumento espectacular, 
en el que ha facturado 136.000 
cadenas musicales y más de 
45.000 vídeos, algo de lo que 
Domínguez se mostró muy 
satisfecho, ya que «fue un reto 
muy arriesgado», añadió. 

Sin embargo, el área que 
mejores resultados ha obtenido, 
sorprendiendo a la propia 
Amstrad, ha sido el de las 
impresoras, con 41.275 unidades 
vendidas. José Luis Domínguez 
resaltó que esto se ha logrado sin 
ningún tipo de lanzamiento 
publicitario. Según los datos 
facilitados por Amstrad España, 
esto la sitúa en el primer puesto 
del mercado, ocupando cerca del 
53 por 100 dentro de este sector. 

A pesar de lo favorable de estos 
resultados, confía aumentar la 
facturación en el 88, tanto en 
vídeos y cadenas como en el 
mercado de las impresoras. 

A preguntas de los 
informadores, Domínguez 
reconoció que se había estudiado 
la posibilidad de producir una 


Teléfonos y 
televídeos serán 
los primeros 
productos 
fabricados en 
España. 


impresora láser. Pero «por más de 
200.000 pesetas no venderíamos 
una impresora». Y éste es el 
precio mínimo de un producto de 
estas características, por lo que no 
parece probable que en un futuro 
cercano haya una láser de 
Amstrad. 

Suben... bajan... 

Para la compañía, estos 
resultados «satisfacen sus 
previsiones y la coloca entre las 
primeras marcas del mercado 
nacional de la electrónica e 
informática de consumo», 
resaltando la capacidad operativa 
y competitiva de la compañía, así 
como la respuesta positiva del 
consumidor, que ya está cerca de 
los dos millones de usuarios. 

Después de hablar sobre los 
resultados y las previsiones de 


venta de la compañía, que se 
espera que alcancen los 27.000 
millones de pesetas y un 
crecimiento del 35 por 100. 

Ante esta situación, José Luis 
Domínguez anunció una 
considerable reducción de precios. 

Sin embargo, a la hora del 
cierre de AMSTRAD Personal, una 
nueva información proveniente de 
Amstrad España notifica la 
imposibilidad de que esta bajada 
pueda llevarse a buen término. 
Algunos de los productos de la 
gama PC y PCW no sólo no 
rebajarán su precio actual, sino 
que va a ser aumentado. 

La razón de esta sorprendente 
noticia estriba en el incremento 
del precio de las memorias 
dinámicas, tanto en el mercado 
japonés como en el 
estadounidense, que ha forzado a 
Amstrad Inglaterra a cortar la 
iniciativa de Amstrad España 
sobre la reducción del precio de 
algunos de los productos' 
comercializados en nuestro país. 

A pesar de ello, Amstrad 
España va a mantener los precios 
de los modelos más bajos de las 
gamas 1512 y 1640, mientras que 
las configuraciones superiores van 
a ver aumentado su precio en 
10.000 ptas. por moddo respecto 
al anterior. 

Idéntica subida \a a tener el 
modelo PCW 9512, aunque su 
hermano pequeño, el famoso 
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La línea de teléfonos que Amstrad fabricará en España fue, sin duda, la sorpre¬ 
sa de la reunión. 


8256, también va a conservar su 
precio en 79.900 ptas. Además, 
incluirá una hoja de cálculo, una 
base de datos y un programa de 
contabilidad. 

Fábrica Amstrad 
en España 

En cuanto a las novedades para 
este año, José Luis Domínguez 
confirmó que el portátil de 
Amsírad, el PPC, será puesto a la 
venta a finales de febrero o 
principios de marzo, con un 
precio de 129.900 pesetas. 

La noticia más importante fue 
el anuncio del próximo comienzo 
de la construcción de una factoría 
en el polígono de Tres Cantos 
(Madrid). Ya se han comprado los 
terrenos, con una extensión total 
de 19.000 m 2 , de los que las 
instalaciones ocuparán, en 
principio, 16.000 m 2 . Se espera 
que esté en funcionamiento a 
mediados de septiembre. 

La inversión inicial será de 
1.500 millones de pesetas. 
Actualmente, Amstrad se 
encuentra en negociaciones con la 
Dirección General de Industria, 
con el objetivo de llegar a un 
acuerdo y conseguir subvenciones 
oficiales que ayuden a financiar 
esta inversión. 



El PCW será objeto 
de una oferta 
especial a lo largo 
de este año. 
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La posibilidad de que Amstrad 
pusiera en España una fábrica era 
algo que ya estuvo presente en las 
negociaciones que llevaron a la 
compra de Indescomp, entonces 
distribuidora de Amstrad Pie en 
nuestro país, por parte de esta 
compañía británica. Entonces 
Domínguez que acordó con Alan 
Sugar que su establecimiento se 
llevaría a cabo en un máximo de 
cinco años. 

«No hay más remedio que 
fabricar en España», aseguró. Las 
razones se encuentran en las leyes 
de homologación españolas, por 
las que «hay que empezar a 
competir con los mercados 
orientales. Fabricando en España, 
la homologación de productos es 
mucho más fácil.» Añadió que no 
le preocupa competir con dichos 
mercados, porque «en España 
podemos conseguir un coste 
inferior al de Taiwan». 

En las instalaciones de Tres 
Cantos, Amstrad comenzará a 
fabricar el anunciado compacto de 
vídeo y televisión, que desde aquí 
será suministrado a toda Europa, 
empezando por Italia y Alemania 
Federal cuando se llegue a una 
producción mensual de 10.000 
unidades. Se espera que esto 
suceda durante el primer trimestre 
de 1989, dedicando el 25 por 100 
del total a la exportación. En un 
principio, se calcula una 
producción de 3.000 televideos 
mensuales, que se irá aumentando 
progresivamente. Los primeros 
estarán a la venta durante el mes 
de octubre. 

Pero, sin duda, la sorpresa de 
la rueda informativa fue el 
anuncio de la fabricación, en esta 
misma factoría de Tres Cantos, de 
una línea de teléfonos de uso 



doméstico. Con esto se intenta 
diversificar el campo de actuación 
de la compañía e introducirse en 
este importante sector de la 
electrónica, convirtiendo al 
teléfono en un producto más de 
consumo. Quizá por esta misma 
razón los prototipos, colocados 
sobre una mesa durante la 
reunión, tenían diseños atractivos 
e imaginativos, aunque también 
había teléfonos de oficina (con un 
pequeño ordenador para 
memorizar números) con formas 
más sobrias. 

Según José Luis Domínguez, se 
han iniciado contactos con la 
Telefónica para llegar a un 
acuerdo y Amstrad sea incluida en 
el catálogo de teléfonos de uso 
doméstico de esta compañía como 
suministrador oficial. 

Los primeros teléfonos estarán 
a la venta entre noviembre y 
diciembre del 88. En respuesta a 
las preguntas formuladas, 
Domínguez dijo que no están 
preocupados por introducirse en 
un nuevo sector de la electrónica, 
ya que cuentan con una ventaja 
sobre los posibles competidores: 
una red de distribución por toda 
España. 


El PPC saldrá al 
mercado en el mes 
de marzo, a un 
precio de 129.900 
pesetas. 


Por último, se habló de un 
compatible PS/2 de Amstrad. 

Este compatible con el nuevo 
sistema de IBM será realidad, 
probablemente, durante el 
segundo trimestre de este año 88 y 
estará destinado al mercado 
estadounidense, donde este tipo de 
ordenadores ha tenido una 
acogida bastante favorable. Sin 
embargo, no se puede decir lo 
mismo de Europa, ni de España, 
rázón por la que no es probable 
que se saque a la venta a este 
lado del Atlántico. ■ 































Tandon abre 
oficina en 
Barcelona 

Con la intención de 
potenciar y consolidar 
su presencia en 
Cataluña, Tandon ha 
abierto una delegación 
en Barcelona (Aragón, 
141. Teléfono: 

(93) 323 79 39). 

«La apertura de esta 
nueva oficina 
—manifestó Roberto 
Maldonado, director 
general de Tandon 
Computer España— 
obedece al apoyo 
técnico y comercial que, 
desde hace algún 
tiempo, venían 
demandando nuestros 
distribuidores de esa 
importante zona de 
España que, 

actualmente, superan ya 
el centenar». 

Las ventas que 
Tandon ha realizado en 
Cataluña han superado 
el 30 por 100 de la 
facturación total, que 
en su primer año ha 
ascendido a 1.700 
millones de pesetas, 
cifra que la coloca entre 
los primeros puestos del 
sector. 


Dinamic, 
ganadora del 
Joven Empresa 

Hace algunas 
semanas, se celebró la 
entrega del Premio 
Joven Empresa 1987, 
dentro de los actos 
conmemorativos del II 
Congreso Júnior 
Empresa. El premio 
recayó en Microdigital 
Soft, S. A., más 


conocida por el nombre 
con el que comercializa 
sus productos: Dinamic. 

Este premio pretende 
reconocer el mérito de 
las jóvenes empresas, de 
una antigüedad mínima 
de tres años desde su 
creación y a cuyo frente 
se encuentre un director 
general que llegue, 
como máximo, a los 35 
años. 

El jurado valoró 
especialmente las 
innovaciones de esta 
empresa en gestión y 
tecnología. Destacó la 
juventud de sus 
integrantes, ya que la 
media de su staff 
directivo es de 22 años, 
su alto crecimiento, con 
un aumento de las 
ventas espectacular, y el 
hecho de haber sabido 
crear una imagen de 
líder en su mercado, 
mediante una adecuada 
estrategia de marketing. 


Premios 
de Amstrad 
en el 87 

La fulgurante subida 
de Amstrad España en 
el mercado informático 
de nuestro país, se ha 
visto avalada este año 
con la obtención de una 
gran cantidad de 
premios y galardones. 
Fuentes de la compañía 


no ocultan su 
satisfacción por este 
hecho, que supone un 
reconocimiento a su 
labor de divulgación de 
la informática. 

Concretamente, los 
premios obtenidos por 
Amstrad España a lo 
largo del 87 han sido: 

— Mención Chips, 
otorgado por la revista 
Chips, con trofeo al 
mejor producto, 
concedido al PC 1512 
Amstrad. 

— Ordenador del 
año, al PC 1512 
Amstrad. Trofeo 
concedido por la revista 
PC World. 

— Trofeo a la mejor 
campaña de publicidad 
concedido por la revista 
Chips a Amstrad 
España. 

— Trofeo a la mejor 
campaña de publicidad 
concedido por la revista 
PC World a Amstrad 
España. 

— Premio Alpha, del 
Club de Dirigentes de 
Marketing. Trofeo 
concedido a Amstrad 
España, S. A. 

— Diploma otorgado 
por la revista Economía 
y Finanzas a Amstrad 
España, S. A., entre las 
diez empresas más 
significativas en 1987. 

— Trofeo y diploma 
de la revista Dirigentes, 
concedido a Amstrad 
España, S. A. por su 
innovación tecnológica. 

— Primer premio de 
la revista Micros. 


Software de 
comunicaciones 
para el PC 

A principios de este 
trimestre, Kortex 
España, S. A. ha 
celebrado en Madrid y 
Barcelona unas jornadas 
de presentación de sus 
nuevos productos, todos 
ellos dedicados al 
mundo de las 
comunicaciones entre 
PCs. 

Los productos 
presentados en esta 
ocasión son software 
que gestionan módems. 

El primero de ellos, el 
KX-Phone, es un 
programa pensado para 
los profesionales del 
marketing telefónico, de 
la venta a través del 
teléfono. 

Con Kaliop se puede 
transformar el PC en 
un editor de páginas 
videotex, bajo perfil 
Mimitel. 

Una de las aplicaciones 
con más futuro son los 
software dedicados a la 
transferencia de ficheros 
entre redes de PCs. 

Esto es lo que hace KX- 
Transfer, a una gran 
velocidad. 

KX-Master sirve para 
controlar un PC desde 
otro a distancia, incluso 
kilómetros. También es 
capaz de ejecutar 
mandatos DOS. 
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• TECLADO • Teclado profesional con 
74 teclas en 3 bloques - Hasta 32 teclas 
programabas - Teclado redefinible 

• PANTALLA • Monitor RGB verde (12") o color (14'" 


Alta Re., Mdticolor 



- Se pueden definir hasta 8 ventanas de texto y I 
de gráficos. 

t SONIDO • 3 canales de 8 octavas moduladas 
independientemente - Altavoz intemo regulable 
Salida estéreo 

• BASIC t Locomotive BASIC ampliado en ROM 

- Incluye los comandos AFTER y EVESY para 
control de interrupciones 


UNIDAD CENTRAL MEMORIAS 

• Microprocesador Z80A - 64K RAM ampliables - 
32KROMampliables 

• CASSETTE t Cass-" Incorporad con 
velocidad de*graÜ5CÜn (162 Kbaudios) 

‘ Controlada desde Basic 

• CONECTORES • Bus PCB multiuso. Unidad de 
Disco exterior paralelo Centronics, salida estéreo, 
joysíick, lápiz óptico, etc, 

• SUMINISTRO • Ordenador con monitor verde 
o color • 8 cassettes con programas - Libro "Guía 
•de Referencia BASIC para el programador 1 ' • 
Manual en castellano • Garanda Oficial AMSTRAD 
ESPAÑA 


TODO POR 

53.900 Ptas. (monitor verde) 


79.000 Ptas. (monitor color) 
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C/ Aravaca, 22, 28040 Madrid. Tel, 4b9 30 01. Télex 47660 INSC E, Fax 459 22 92 

DELEGACIONES: 

Cataluña: C/Tarragona. 110. Tel. 425 11 11. 08015 Barcelona. Télex 93133 ACEE E, Fax 241 81 94 • Canarias: C/ Alcalde Ramírez Bethencourt, 17. Tur 



























e turega 


c mprar tu CPC recuerda que hay 
magníficos juegos y programas 


CPC 6128 


• SUMINISTRO • Orae cor con m. r.'.ter veas 
ocolor- DiKó jnC'r !.!22y.ierigua]epR :. 
-Disco con CP Ü Plus y -—; ■ Disco xn 3 
pr. rácids . :: r -: - elino• 

Oaranps V.»lAI6Ér?3)ESPA:':.-. 


UNIDAD CENTRAL. MEMORIAS 

$ Microprocesador Z0OA ■. c. Y. RAM >rr.| ,ia: íes 
- 48 K ROM amplíables 

• UNIDAD DE DISCO • Unidad .r.cc:> rada 
para disco de 3 con Í80K por cara 

• SISTEMAS OPERATIVOS • AMSC05 CP-'M 
22 CP/M PlúS Í3JÜ) 

• CONECTORES • Bus ?GB mtáiusp pararé^ 
Centronics. cassette ext^- r, 2 * Unidad de Disco 
■salida estíréo ,/stick lápizOptico. ero 


11 33, Télex 96496 TEIC E. 35004 Las Pararas d, Gran Canaria • Levante-Murcia; C/Colón, 4 - 3°B, 46004 Valencia, Tel, 334 81 00, Télex 64797 JAMI 










UTILIDADES 


Calculadora 


Residente con todos 

los programas 

Este mes traemos a esta 
sección un estupendo 
programa que imita el 
funcionamiento de una 
calculadora, con la posibilidad 
de utilizar números decimales 
y hexadecimales. 

por Carlos Plaza y Daniel Calvo 


A todos los que 

programamos siempre nos 
sucede lo mismo. En 
medio de un programa no nos 
acordamos de cuánto es el 
resultado de dos más dos, y, por 
lo general, la calculadora está 
entre todos los papeles, por lo 
que nos resignamos, salimos del 
programa y tecleamos en el 
mismo ordenador esa operación 
que no sabíamos, con el 
resultado de haber perdido todos 
los datos que laboriosamente 
habíamos tecleado al principio 
del programa. 

Para que esto no vuelva a 
suceder, dos colaboradores de 
esta revista nos hemos unido 
para crear esta rutina en Código 
Máquina, que permite tener 
siempre una calculadora sin 
necesidad de parar el programa 
que estemos corriendo. Para 
acceder a ella bastará con pulsar 
simultáneamente las teclas 
Control y Copia , y aparecerá en 
la pantalla la representación de 
una calculadora. Para salir, 
bastará pulsar la tecla Copia. 

A partir de ahora disponemos 
de las siguientes funciones: seno, 
coseno, tangente, arcoseno, 
arcocoseno, arcotangente, 
logaritmo decimal, logaritmo 
neperiano, exponencial, potencia 
de 10, potencia de dos números 
y el número PI, además de las 



superconocidas suma, resta, 
multiplicación y división. En las 
operaciones que incluyan 
ángulos se puede especificar si se 
quieren realizar en grados 
sexagesimales o en radianes. 
Además, también tenemos la 
posibilidad de especificar si 
vamos a utilizar números 
decimales o hexadecimales. 

El cambio de un tipo de 
ángulo al otro se realiza 
mediante la tecla «T», 
apareciendo el tipo activado en 
la calculadora en la esquina 
superior izquierda, RAD cuando 
están en radianes y GRA para 
los sexagesimales. 

Para cambiar el tipo de base 
de los números, de decimal a 
hexadecimal o viceversa, basta 
con pulsar «Y», que está debajo 
del mensaje DEC si están 
activados los decimales o bien 
HEX si lo están los 
hexadecimales. Todas las 
funciones de la calculadora se 
pueden usar tanto con un tipo 
como con el otro. 

Algunas teclas de la 
calculadora tienen funciones 
inversas, a las que se accede 
pulsando la tecla «INV». 

Cuando INV se pulsa una vez, 
aparece en la pantalla la palabra 


INV en vídeo inverso. Cuando 
se pulsa por segunda vez el 
indicador desaparece y la 
función inversa se anula. 

DEL o BORR sirve para 
borrar todas las entradas 
realizadas hasta ese momento. 

La introducción de un 
número, en el modo DEC, se 
puede hacer de dos formas. La 
primera consiste en teclear el 
número y pulsar Enter. La 
segunda utilizando la notación 
científica, primero tecleamos la 
mantisa y después, mediante la 
pulsación de EE, introducimos el 
exponente seguido de Enter. Si 
nos encontramos en la opción 
HEX sólo podemos introducir 
los caracteres desde 0 a 9 y de A 
a F pulsando al terminar Enter. 

Si se intenta realizar una 
operación imposible, como el 
arcocoseno de 23, aparece en 
pantalla el mensaje «Error» en 
esta situación lo mejor es pulsar 
DEL para poder inicializar la 
calculadora. 

El resultado de cualquier 
operación se guarda en memoria 
por si se quiere seguir operando 
con dicho valor. 

Las operaciones suma, resta, 
multiplicación y división se 
consiguen con las respectivas 
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teclas del teclado. (Si es 
necesario pulsar Mayus para 
obtener esta operación en modo 
directo, también es necesario 
cuando se esté dentro de la 
calculadora). 

Para poder acceder a 
cualquiera de estas funciones 
hay que pulsar la tecla que se 
encuentra debajo de cada una de 
estas funciones, en el caso de 
necesitarse una función inversa, 
la palabra INV debe encontrarse 
en vídeo inverso. 

Para poder cargar la 
calculadora en la memoria hay 
que copiar el Programa 
Cargador mediante el cargador 


universal y salvarlo como 
binario con el nombre Calcula. 
Una vez que tengamos el fichero 
bin tecleamos las siguientes 
órdenes: 

SYMBOL AFTER 256: 
MEMORY &9DFF: 
LOAD”CALCULA. BIN’ ’,&9E0/ 
0-. CALL &9E00 
de esta forma ya tenemos 
activada la calculadora, con sólo 
pulsar simultáneamente las teclas 
Control y Copia. 

Si se quiere utilizar con algún 
programa comercial, siempre se 
debe cargar primero en memoria 
la calculadora y después el 
programa. 


SIN 


eos 
tan 
INV SIN 
INV COS 
INV TAN 

log 

LN 

INV LOG 
INV LN 
Pl 

POT 

RAD/GRJ 
DEC/HEX 


PROGRAMA CARGADOR 


DIRECCION DE COMIENZO. . 9E00 

1 3EC932009ECD00B9F53A02C0,54E 

2 B7CA899EDD21539EFD21659E.6B8 

3 0612DD5EOODD23FD6EOOPD23,4DB 

4 FD6600FD23FK0128031C1C1C,401 

5 7310S7219FB02234A421BBFA.5AD 

6 2243A4FE012006216DEF2238,407 

7 A3183E2168EF2238A2183694,44B 

8 61797F62858B979A9DA0A3A6,6A2 

9 A9ACAFB26A9D9FC3A3A0A2C6,7CA 

10 A3C9A3CCA3CFA31AA3D2A3D5,7F7 

11 A3D9A2DFA202A308A30EA314,5B4 

12 A3D8A375A521A79E068111AE,5E4 

13 9ECDEFBC010F0011320021 Al,42B 

14 9ECDE9BCC900000000000000.3D9 

15 0000000000003E17CD1EBBC8,2C3 

16 3E09CD1EBBC8CD78BB22FC9E,671 

17 CD7EBBCD83A4AF325DA232F8,704 

18 9F3AF69FEE0132F69FCD939F,723 

19 3AF79FEE0132F79FCDAB9FCD,76B 

20 OAA2CDO59FCD0AA23EO9CD1E, 4C8 

21 EE200218F1CD83A4CD06B921,587 

22 0000CD75BBCD7BBBC9CD06BB,657 

23 FE3A3005FE30D41FA0FE2B06.55D 

24 01CCF0A1FE2D0602CCF0A1FK,6KG 

25 2A0603CCFOA1FE2F0604CGFO, 583 

26 A1CBAFFE473005FE41D41FAO,667 

27 FE54CC939FFE55CCD19FFE59.836 
26 2665FE4D0605CCF0A1FE4ECA,656 

29 5EAOFE4B0606CAF7A1FE4A06,603 

30 08CAF7A1FE49060AGAF7A1FE,721 

31 4F060GGAF7A1FE50060ECAF7,5E6 

32 A13E4FCD1EBBC2859F3E09CD,5CE 

33 1EBBC01880AF32E9A3325DA2.5CF 

34 325CA232DEA3C93AF69FEE01,66A 

35 32F69FF5CD73BDF121F99F28,78B 

36 0321FF9FC3E49F3AF79FEE01,6C7 

37 32F79F2113A028032119A0E5, 486 
36 3A5DA2B7C4CA9FCD0AA2E1C3,73A 

39 B49FAF325CA2C362A33AF89F,6FB 

40 EE0132F89F2105A02803210B,3D5 

41 A0C3E49F7E23E56E67CD75BB,73E 

42 E1237EB7C8CD5ABB18F70000.5F2 

43 000304524144000304475241, 1BF 

44 OOOB04494E56000B0418494E. IBA 

45 561800070444454300070448,198 

46 455800CDOCBB3A5DA2B72026,467 

47 CD83A03E01325DA23A5CA2B7,54F 

48 2001C921DAA311DFA3010500,421 

49 EDB0CD13A4AF325DA2180CC3,5K8 

50 0CBB3A5CA2B728F7CD83A0CD, 692 

51 5EA2CD0AA2C93A5CA2B7CA16, 611 

52 A321E4A3CD19A318D8C5F5E5. 763 


53 210202CD75BB060D3E20CD5A,3BA 

54 BB10F9E1F1C1C9CD6DA0AF32, 7DB 

55 C7A132C6A132C8A13E2032CB.5F7 

56 A121CCA13600DD21C9A1CD6F, 609 

57 A13AF79FB7C291A1CD06BBFE, 7A8 

58 0DCA13A4FE682875FE482871,570 

59 FH2E2821PE2B282AFE2D2826. 469 

60 FE3038E0FE3A30DC4F3AC7A1,67B 

61 3C32C7A1CD06A1FE09281B16, 4AC 

62 CB4F3AC6A1B720C47932C6A1,666 

63 18E232CBA13AC7A147CD0BA1, 5FA 

64 18E1CD06BBFE0DCA13A4CBAF, 68D 

65 FE48282518F04771233600E5,491 

66 DDE5B17E90CDE59FE178C9CD, 8F1 

67 06BBFE2B2845FE2D2641FE0D, 4F6 

68 20F1C313A43E2032D9A121DA, 590 

69 A1DD21D7A13600CD7EA1CD06, 609 

70 BBFE0DCA13A4FB2B281DFE2D, 5E0 

71 2819FE3038ECFE3A30E84F3A, b6C 

72 C8A13C32C8A1CD06A1FE0226, 5DC 

73 E618D732D9A13AC8A147CD08, 613 

74 Al18EEDDE5DD21DDA1CD87Al,7DA 

75 DDE1C9DDE5DD21EAA1CD87A1, 8C7 

76 DDE1C9E5DDE5E17ECDE59FE1,9BF 

77 C9CD06EBFB0DCABAA3FE3038, 71F 

78 F4FE3A380ACBAFFE4136EAFE, 747 

79 4730E64F3AC7A13C32C7A1CD,5F1 

80 06A1FE04280218D5CD06BBFB, 54C 

81 OD20F9C3EAA30000000B0220.3A3 

82 OOOOOOOOOOOOOOOOOOOOOOOE, OOE 

83 022000000002022020202020,0C6 

84 2020202030000C0220203000, 12E 

85 78325CA23E5AC93AF89FB728, 5B9 
66 0604C5CDD19FC1GDF0A1CD5E, 756 

87 A2C9CD6DA03AE9A3B7203721,63A 

88 DAA3E511DFA3010500EDB0E1,679 

89 3AF79FB7C261A5ED5B34A43E, 6ÁD 

90 O5121301O50OEDBOCDOOB9CD, 420 

91 9DBECD03B9E5210202CD75BB, 61B 

92 E12BCDED9FC92154A2CDE49F, 795 

93 CD859FC903024572726F7200, 4C9 

94 00003A5DA2B72803CD62A33A, 427 

95 5CA2875F1600217CA2195E23,3D3 

96 56EBAF32E9A3325DA2E99CA2, 706 

97 A2A2B6A2BCA2C2A2D5A2FEA2,875 

98 DBA2B1A204A31GA30AA36EA3, 624 

99 10A3B5A3CDBBA3C358BD21E4,713 

100 A311DAA3010500EDB011DFA3,567 

101 21DAA3C3C5A3CDBBA3C3C8A3, 822 

102 CDBBA3C3CBA33AE2A3CB7F20, 785 

103 06CDBBA3C3D4A33E0132E9A3, 668 

104 C9CDBBA3C37FBDCDBBA3C382, 863 

105 BD11E4A3210A00CDC2A321E4,5B7 

106 A3E511DFA3CDD4 A3E111DAA3,7CB 

107 010500EDBOC9CDBEA3C385BD, 69C 

108 CDBBA3C388BDCDBBA3C38BBD, 869 


gífsp- 

Exponencial 1 

Numero núm eros UV)- 

Potencia de nüme ro. 

Exponente d ^ ^ ángU \os. 

Cambia l ino de los números. 
Cambia el tipo u 


109 CDBBA3C38EBD21DAA3C376BD, 7CD 

110 11E4A3210100CDC2A321DFA3, 58P 
' 111 11B4A3CDCBA3FE01289D21DA, 695 

112 A311DAA3CDC8A311E4A32101,623 

113 OOCDC2A311E4A321DAA3CDC5,6FA 
"ll4 A321DAA3CDD1A321DFA311DA, 710 

115 A3CDCBA321DFA3CDD7A321DF.7C8 

116 A311DAA3010500EDB0C911E4,592 

117 A3210100CDC2A321DFA311E4,58F 
116 A3CDCEA3FE01CACFA221DAA3,7B9 

119 11DAA3CDC6A311E4A3210100,580 

120 CDC2A311E4A321DAA3CDC5A3, 79D 

121 21DAA3CDD1A321DAA311DFA3, 710 

122 CDCBA321DAA3C3D7A321DAA3, 7B4 

123 C3D7A321DAA311E4A3C9C340,73F 

124 BDC35EBDC361BDC364 BDC36A, 78D 

125 BDC379BDC37CBDC391BDOOOO, 6C3 

126 000000000000000000000000,000 

127 0000216FA411CCA10E013626, 31D 

128 23CD63A4CD2CA42A34A4235E, 517 

129 2356BB3A5DA2B711DFA32803.512 

130 11E4A3CDC2A3C9216FA411CB, 6A3 

131 A10EOOCD63A4362EOC2311D9.400 

132 A13AC6A1B7C45FA4216CA471, 664 

133 3E03DD21C1EODD7700DD7501,557 

134 DD7402CD00B9CD77FACD03B9,6A0 

135 DDB5E111DFA33A5DA2B72603,651 

136 11E4A3010500D5EDB0D1C936, 5E0 

137 450C231AB7C87723130C1BF7,3D5 

138 006FA4000000000000000000, 113 

139 000000000000000000000021,021 

140 0101CD75BB21ADA4060CC506,44E 

141 0FB5CD60EB4FB17ECD5ABB71,6DD 

142 231OF2C13E0ACD5ABB3B0DCD,528 

143 5ABB10E2C9969A9A9A9A9A9A,702 

144 9A9A9A9A9A9A9A9C95414D53,648 

145 5452414420313938372E9597,37E 

146 9A9A9A9A9A9A9A9A9A9A9A9A,738 

147 9A9D95205241442044454320,3CF 

148 494E56209595202054202020,32B 

149 592020205520209595205349,334 

150 4E20434F532054414E209595,3A0 

151 2020492020204F2020205020,206 

152 20959520454520204C4F4720,336 

153 4C4B20209595202048202020,2EC 

154 4A2020204B20209595205049,318 

155 20204A435020504F54209595,37A 

156 20204E202044434720204D20, 249 

157 2095939A9A9A9A9A9A9A9A9A,6B2 

158 9A9A9A9A99210203GD75BB21.545 

159 DAA311A4A5D5010500EDB0E1 ,630 

160 CD49BD2AA6A5CD80A52AA4A5,6AD 

161 7CCD68A57DC388A5F5E6F0CE,879 

162 3FCB3FCB3FCB3FCD99A5F1E6, 73F 

163 0FC630FB3A3802C607C35ABB, 51C 

164 000000000000000000000000,000 


Este programa debe teclearse desde la op¬ 
ción 1 del Cargador Universal. 
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LIBROS 



GW Basic/Básica 
para IBM PC 
y compatibles 

El GW Basic es el Basic 
desarrollado para los 
ordenadores personales 
compatibles con IBM y, por 
tanto, totalmente compatible con 
el Basic de los IBM, salvo 
excepciones poco significativas. 

El texto se centra 
fundamentalmente en ejemplos 
prácticos, acompañados de una 
breve teoría en cada uno de los 
capítulos, lo que le hace 
especialmente indicado para 
aquellos lectores con pocos 
conocimientos matemáticos, pero 
que se acercan a él con la 
intención de aprender a 
programar su PC. Es, por tanto, 
un libro fácil de entender. 

Pone especial cuidado en la 
programación estructurada. En 
los primeros capítulos se 
analizan los conceptos para 
editar y corregir un programa, 
las órdenes para manipular 
ficheros en disco, los elementos 
que forman parte del programa 
y las instrucciones básicas para 
programar, todo ellos 
acompañado por una serie de 
sencillos ejercicios que nos 
introducen en la programación 
de este lenguaje. En los capítulos 
cuatro y cinco se describen las 
sentencias de control y las 
funciones de caracteres. 

En los siguientes apartados 
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van desde las funciones 
numéricas Basic, la entrada 
y salida de datos, hasta los 
ejemplos más típicos de arrays, 
como son la creación, 
visualización y clasificación. 

Las subrutinas son siempre un 
tema importante, ya que nos 
ayudarán a dividir un programa 
y, por esta misma razón, nos 
evitaremos las repeticiones 
innecesarias de ciertos conjuntos 
de instrucciones. Así se facilita 
la aplicación de la técnica de 
descomposición arriba-abajo 
(Top-Down). 


Titulo: GW Basic/Básica para 

IBM PC y compatibles 
Autor: Feo. Javier Ceballos 

Sierra 

Editorial: RA-MA 
Páginas: 216 
Precio: 1.950 pías. 


En los capítulos dos y tres se 
analiza la estructura general 
de un programa, dejando al 
cuarto el examen detallado de 
los tipos de datos elementales. 

Uno de los temas más 
interesantes, y que más 
dificultad tiene para los que se 
acercan a este lenguaje, es la 
asignación, tema del que se 
ocupa el quinto capítulo. Como 
se indica en el prefacio, «el 
problema principal surge del 
hecho de que aquí tenemos 
expresiones de asignación y no 
sentencias de asignación. Esto, 
no obstante, le hace potente 
y menos compacto». 

Además se incluye una 
descripción de cada una de las 
funciones, como el manejo 
de cadenas o las entradas y 
salidas, con ilustraciones 
y ejemplos de su utilización. 


C para 

programadores 

profesionales 

Como su propio título 
indica, este libro está destinado 
a programadores que tienen ya 
una cierta experiencia en 
lenguajes y, por supuesto, 
con el C. 

Por esta misma razón, los 
primeros capítulos no hacen una 
descripción exhaustiva del 
lenguaje, sólo un esbozo, una 
visión general «confiando a los 
lectores una mayor 
profundización», en palabras 
del autor. 



Título: C para programadores 

profesionales 
Autor: Keith Tizzard 

Editorial: RA-MA 
Páginas: 233 
Precio: 2.332 pías. 



dBase III Plus 

Las ventajas del dBase III 
Plus se basan en la posibilidad 
de utilizar este programa 
para tratar varias bases de 
datos, a la vez, en redes locales, 
además de ser un gestor 
muy eficaz de dichas bases de 
datos. 

dBase III Plus es una versión 
actualizada del dBase III, 
y mucho más rápida. Sin 
embargo, con este libro, no es 
necesario saber manejar las 
anteriores versiones para poder 
utilizar ésta, ya que en los 
diversos capítulos se analizan 
cada uno de los mandatos, 
comandos y funciones, con 
ejemplos y trucos muy útiles. 
Pero también puede ser de gran 
ayuda para los más expertos, 
«ofreciéndoles una guía de 
ayuda y consulta, así como una 













































explicación detallada de cada 
cambio y nuevas funciones». 

Es importante resaltar que el 
dBase III Plus contiene, 
además, un generador de 
aplicaciones, es decir, con 
él se pueden construir 
programas y aplicaciones, de 
acuerdo con las necesidades de 
cada uno. 


Título: dBase III Plus. Guía 

del programador 
Autor: Ramón M. Chorda. 

Cristina Mainar 
Editorial: RA-MA 
Páginas: 286 
Precio: 2.650 pías. 


Principios 
de transmisión 
de datos 

La comunicación a través de 
ordenadores personales es cada 
día más utilizada. Sin embargo, 
para los profanos en 
microinformática y 
comunicaciones, puede 
convertirse en un verdadero 
laberinto, con innumerables 
problemas. 

El objetivo de este libro es, 
como se indica en su prólogo, 
«poner a disposición del lector 
una síntesis sobre los 
problemas... relativos a la 
conformación de modulación, 


filtrado y codificación de las 
señales, y a la estructura de las 
redes de datos». 

El texto comienza con una 
introducción a los datos, 
describiendo la medida de 
información, los medios para 
emitir y recibir dicha 
información y la infraestructura, 
o redes de telecomunicaciones, 
idónea para la transmisión de 
datos a distancia. 

Más adelante se analizan los 
detalles técnicos de la 
comunicación entre ordenadores, 
en los que normalmente se 
utiliza la línea telefónica. Por 
último, en los apéndices figuran 
las nociones sobre ruido, 
espectro, relación señal/ruido, 
energía de las señales y procesos 
aleatorios. 



Como conclusión se puede 
decir que este libro es una buena 
introducción al tema de las 
comunicaciones entre 
ordenadores o redes de 
telecomunicaciones. 


Título: Principios de 

transmisión de datos 
Autor: A. Arton 

Editorial: RA-MA 
Páginas: 275 
Precio: 2.200 pías. 


Curso 

de programación 
con Pascal 

El objetivo de Curso de 
programación con Pascal queda 
claramente explicado desde el 
comienzo, ya que el autor nos dice 
en el prólogo: «Éste es un libro de 
texto completo de programación de 
ordenadores en lenguaje Pascal». 

Por esta misma razón, es un 
texto fácil de entender, sin 
necesidad de poseer elevados 
conocimientos matemáticos, que 
cubre completamente los 
conocimientos sobre este bnguaj'e. 

Hay una serie de 
características dignas de resaltar, 
que por sí mismas hacen 
realidad el objetivo del autor. Se 
trata de un libro «breve en 
teoría y abundante en ejemplos. 
Los ejemplos de programas 
corren perfectamente en Pascal 
estándar y en turbo Pascal». 

Además, se dedica un capítulo 
entero a los ficheros y otro a los 
soportes de estructuras lineales 
de datos (listas y árboles), con 
ejemplos para la manipulación 
de las mismas. 

En definitiva, un buen libro 
para todos aquellos que quieran 
empezar a programar en Pascal. 
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por José Carlos Alias 


A unque en nuestro país 

nunca han sido acogidos 
con demasiado éxito, 
parece que los juegos de 
aventuras empiezan a abrirse 
camino, no sin dificultad, entre 
los buenos aficionados al software 
de divertimento. 

Con este objeto, dedicaremos 
una serie de artículos encaminados 
a orientar dicha labor, sentando 
las bases para llegar a los mejores 
resultados. 


ELEMENTOS BÁSICOS 
DE UN PROGRAMA 
DE AVENTURAS 


¿Cuáles son los principales 
elementos a tener en cuenta en 
este tipo de programas? De una 
forma esquemática podríamos 
resumirlos en los siguientes 
puntos: 

1. Plano del juego: entradas y 
salidas. Comienzo y fin. Objetos 
y personajes. 

2. Interpretación de las 
instrucciones. 

3. Tratamiento del movimiento 
entre escenarios. 

4. Interacción con ¡os objetos: 
otras acciones simples. 

5. Situaciones complejas: 
escenarios especiales. 

El plano del juego es, sin duda, 
el primer elemento a tener en 
cuenta, sea cual sea el método 
adoptado para el desarrollo del 
programa. 

Se trata de diseñar una 
descripción de los escenarios en 
donde se llevará a cabo la acción, 
las características concretas de 
cada lugar, los objetos y 
personajes en ellos situados, así 
como las diversas incidencias que 
se produzcan. Dicho con otras 
palabras, es el diseño del plano 
del juego y su plan de acción. 

Para ilustrar con un ejemplo 
todo lo que en esta serie vamos a 
exponer, hemos ideado un 
pequeño guión que recoge en 
esencia todos los elementos 
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básicos de un programa de 
aventuras. Lo describiremos, en 
primer lugar, e iremos trabajando 
con él a modo de guía y 
clarificación de las rutinas que se 
vayan construyendo. De esta 
manera, y para imprimir mayor 
veracidad, le hemos dado un 
nombre que lo caracteriza. 

EL CASERÓN 
SOLITARIO.,. 

En resumen, el juego consiste 
en que, habiendo entrado en un 
viejo y lóbrego caserón, 
aparentemente abandonado, cuya 
puerta se cerró misteriosamente, 
deberemos recorrer sus numerosas 
estancias hasta encontrar la salida. 

Indudablemente, expuesto de 
forma tan breve, la cosa no 
parece resultar de mayor interés. 
Pero pronto advertiremos que, a 
poco que se incorporen trampas 
mortales, tesoros ocultos, 
fantasmas y otros objetos 
extraños, habremos dotado a 
nuestro caserón y, por tanto, a 
nuestra aventura, del mayor 
suspense y atractivo. 

El plano del juego es como se 
indica en la figura. La casa tiene 
10 habitaciones que numeraremos 
de 1 a 10, empezando por 
aquellos en los que se van a dar 
situaciones complejas. 

La acción comienza en el 
vestíbulo. Los objetos son los 
siguientes: 

— La vela: se encuentra en la 
cocina. Sirve para ahuyentar a las 
arañas venenosas del túnel 
secreto. 

— El talismán: se halla en el 
dormitorio. Sirve para vencer al 
fantasma del laboratorio. 

— El tesoro: está en la 
biblioteca y lo podremos coger 
como botín. 

Entre los personajes, bichos y 
demás encontraremos: 

— El fantasma: lo veremos 
cuando lleguemos al laboratorio. 
Nos mata si no llevamos el 
talismán. 

— Las arañas venenosas: están 
en el túnel secreto. Nos matan si 
no llevamos la vela. 

Las incidencias a destacar son 
las siguientes: 

— La trampa del pasillo: según 
un cierto factor de azar, se 



LA PRIMERA 
TAREA AL REALIZAR 
UNA VIDEOAVENTURA 
ES CODIFICAR 
EL MAPA, 

EN SU FORMA 
MÁS SIMPLE 


activará al pasar y moriremos en 
ella. 

— Lucha contra la momia: sólo 
venceremos si llevamos el 
talismán. 

— Lucha contra las arañas: 
sólo venceremos si llevamos la 
vela. 

La aventura termina por 
cualquiera de estos dos motivos: 

A) Se encuentra la salida. 

B) Muerte natural del 
protagonista en alguna de las 
trampas mortales que hemos 
preparado. 

Con todo lo dicho, podríamos 
ya avanzar el tratamiento 
principal del programa con el 
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esquema siguiente, fácilmente 
trasladable al Basic de nuestro 
Amstrad: 

— Mientras estemos vivos o no 
encontremos la salida, desarrollo 
del juego. 

— Fin de tratamiento principal. 

Naturalmente, a este esquema 
primario hay que añadirle, para 
completarlo, un tratamiento inicial 
y un tratamiento de fin de juego. 

El tratamiento de inicio 
consistirá en, primero, definir e 
inicializar variables. Segundo, 
presentar la acción, situando al 
protagonista en su punto de 
partida, describiendo el lugar 
donde se halla, es decir, el 
vestíbulo con sus salidas. Y 
tercero, solicitar instrucciones. 

Por otra parte, el tratamiento 
de final dependerá de cuál de las 
dos situaciones ya descritas sea la 
causante del fin de la aventura. 

Asimismo, es necesario advertir 
que el núcleo fundamental del 
juego consistirá siempre en 
ejecutar todas las acciones 
derivadas del análisis de la 
instrucción, introducida por el 
jugador a través del teclado, y, 
finalmente, solicitar una nueva 
instrucción para de nuevo repetir 
el bucle. 

Puestos así, el esquema general 
del programa, en su primer nivel 
de análisis, podría ser el siguiente: 

Principio: 

— Definir e inicializar 
variables. 

— Describir primer escenario. 

— Solicitar instrucciones. 

Tratamiento principal: 

Mientras el jugador esté vivo y 
no alcance la salida: 

— Realizar acciones derivadas 
de la instrucción recibida. 

— Solicitar nueva instrucción. 

Fin de tratamiento principal. 

Final: 

— Si jugador muerto: describir 
su muerte y fin. 

— Por el contrario: describir la 
salida y fin. 

Estamos, pues, en disposición 
de ir desarrollando algunas 
rutinas. En primer lugar, 
deberemos indicarle al programa 
la descripción de los distintos 
lugares (escenarios) en los que se 
llevará a cabo la acción. 

Para ello, en la rutina de la 
línea 20000, definiremos una tabla 
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de 10 elementos en cada uno de 
los cuales situaremos la 
descripción de los escenarios, de 
la manera que aparece entre las 
líneas 20020 y 20120. 

Se observará que hemos 
utilizado dos variables más. La E, 
nos permitirá controlar si el 
protagonista está vivo (E > O). La 
P sirve para indicar nuestra 
situación (recordemos que la 
salida tiene el número 10 y el 
vestíbulo, que es el lugar de 
inicio, el 9). 

El siguiente paso consistirá en 
desarrollar un método para 
indicarle al ordenador en qué 
lugar nos encontramos y sus 
salidas posibles. Para ello 
definiremos una nueva tabla de 10 
elementos SA$ (10) que se 
incorpora también en la línea 
20020. 
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CODIFICACIÓN 
DEL MAPA 

En cada elemento, colocaremos 
cuatro pares de dígitos de los 
cuales el primer par indicara el 
número del escenario al que se 
saldría, si hubiera salida por el 
Norte. El segundo par haría lo 
mismo con la posible salida por el 
Este, el tercero la del Sur y el 
cuarto la del Oeste. 

En caso de no haber salida en 
una dirección, se pondría 00 en el 
par de dígitos correspondientes. 
Por ejemplo, el pasillo Oeste tiene 
salida al Norte y da a la 
biblioteca que es el escenario 4. 
Así mismo, por el Este se va al 
gran salón que es el 6. No hay 
salidas ni al Sur ni al Oeste. En el 
elemento SA$(1) se pondría el 
valor 04060000. Las instrucciones 
siguientes almacenan toda la 
información de las salidas. 

Naturalmente, nos queda ahora 
la tarea de escribir una rutina que 
sea capaz, con esta información, 
de permitir desplazarnos por el 
caserón. Sin embargo, antes 
debemos plantearnos cómo recibir 
e interpretar las instrucciones del 
jugador, algunas de las cuales 
serán las del desplazamiento. 

CAPTURA 

E INTERPRETACIÓN 
DE INSTRUCCIONES 

A partir de una sentencia Inpul, 
almacenaremos la instrucción del 
jugador en una variable 1$, dicha 
variable se descompondrá 
posteriormente para separar la 
primera y la segunda palabra, que 
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en un analizador sintáctico 
elemental supondrán el verbo y el 
predicado de la instrucción (EJ. ir 
norte, coger vela, etc.)- Más 
tarde, se estudiará el 
reconocimiento del verbo dentro 
de los posibles que admitiremos 
en esta aventura. 

Estudiando detenidamente, 
comprobaremos cómo las 
sentencias 2020 a 2080 sirven para 
admitir una instrucción simple y 
descomponerla en verbo (VB$) y 
predicado (NN$). Asimismo es 
fácil comprender que las 
sentencias 2220 en adelante y 
otras muchas que quisiéramos, 
sirven para identificar la acción 
que desea llevar adelante el 
jugador. 

Se han incorporado las 
siguientes variables: NSP indica el 
número correspondiente a una 
acción sencilla ya identificada. 

ESP tiene el mismo significado 
para las situaciones especiales, que 
serán identificadas en una rutina 
posterior. VF es un indicador de 
orden introducida correctamente 
(VF = 1) y MF = 1 significa que se 
ha tecleado la orden de 
desplazamiento. 

Podemos ahora preguntarnos 
cuándo es llamada esta rutina de 
análisis de instrucciones. La 
respuesta es muy sencilla y ya 
la hemos adelantado al describir 
el esquema del programa: se 
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ejecutará en el inició del mismo, 
una vez descrita la situación 
inicial y en el núcleo central del 
programa, cuando se han llevado 
a cabo las acciones derivadas de 
una orden anterior. 

Concretamente se codificaría: 

550 G0SUB 2020: REM (FINAL BUCLE PRINCIPAL) 
19030 GOSUB 2020: REM (EN INICIO) 

RUTINAS 

DE DESPLAZAMIENTO 

Llegados a este punto y 
resumiendo todo lo explicado, 
diremos que el lector dispone ya 
de: 

1. Información almacenada 
sobre los datos del juego (faltan 
ios relativos a los objetos). 

2. Rutinas de introducción e 
interpretación de órdenes. 

Pues bien, para abordar el 
control del movimiento, 
recordemos que su dirección, 
indicada por el jugador, es 
almacenada en la variable NN$. 
Una vez aquí, verificaremos, 
primero, que nos han escrito 
correctamente la dirección y, de 
paso, reduciremos la variable a su 
primera letra (N, E, S, O). Veamos 
cómo: 

Hemos introducido unas 
variables NR, ES, SU OE, que 
almacenarán en todo momento el 
número correspondiente a las 
posibles salidas que hay en una 
habitación (recordemos que, para 
el caso del vestíbulo, escenario 9, 
serían: NR = 06, ES = 00, SU = 00, 
OE = 08). Estos valores iniciales se 
encuentran incorporados en la 
línea 20020. 

A su vez, cuando se produzca 
un desplazamiento, habrá que 
actualizar dichos valores con los 
del nuevo escenario, obtenidos a 
partir de la variable SA$(P). 

¿En qué lugar llamaremos a la 
rutina de movimiento? Si 
repasamos el esquema, veremos 
que el núcleo principal consiste en 
ejecutar las acciones derivadas de 
jla orden introducida por el 
jugador y solicitar nueva orden. 
''Pues bien, ello conduce a tres 
tipos de acción: Movimiento, 
Órdenes simples y Situaciones 
complejas, estando cada una 
controlada por las variables MF, 
NSP, ESP. Podemos ya ampliar 
el esquema, desarrollando el 
núcleo principal, codificado a 
partir de la línea 1000. 
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UTILIDADES 

Funcionamiento 

de los sistemas de protección 


Por: Pedro Cuenca 

Los sistemas de protección no son tantos como 
parecen, ni tan fieros como los pintan. Veamos el 
primer capítulo de su funcionamiento. 


C uando compramos un 
juego en cinta, a todos 
nos gustaría poder 
estudiarlo a fondo para, 
por ejemplo, introducir nuestros 
propios cargadores de vidas 
infinitas, hacernos una copia en 
disco que cargue con más rapidez 
o, incluso, para intentar 
comprender las técnicas de 
programación de sus autores. Sin 
embargo, esto no siempre es 
posible, pues la mayoría de los 
programas comerciales están 
fuertemente protegidos, y el 
intentar destruir cualquier sistema 
de protección constituye, en 
muchos casos, una tarea titánica 
que requiere amplios 
conocimientos de Lenguaje 
Máquina. 

Con esta serie de artículos que 
comienza hoy, intentaremos 


satisfacer al mayor número de 
personas posible, ofreciendo un 
profundo estudio, a nivel de 
Código Máquina, de los 
principales sistemas de protección, 
incluidos una serie de programas 
de utilidades que nos ayudarán 
a comprenderlos. 

Empezaremos mostrando un 
resumen de los principales tipos 
de protección, para 
posteriormente ir analizándolos 
en profundidad. 


Tipos de protección 

. Programas con protección en 


cargadores Basic. Esto incluye: 

a) Programas grabados con la 
opción «p». 

b) Líneas ocultas. 

c) Código Máquina oculto en el 
interior del programa. 

2. Programas sin protección 

o con la protección anterior, pero 
con cargadores en Código 
Máquina que utilizan llamadas al 
firmware (Sistema Operativo). 

3. Cargadores en Código 
Máquina sin llamadas al 
firmware. 

4. Cargadores en Código 
Máquina con o sin llamadas al 
firmware, pero con partes de 
programa ocultas o modificadas 
de algún modo. Éstos son los más 
difíciles de desproteger, y pueden 
complicarse aún más si se añaden 
interrupciones, operaciones con el 
Stack, etc. 

Esta clasificación responde a 
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24-25 

26-27 


Función 
Nombre del fichero 
Número de bloque 
Diferente de 0 si es 
el último bloque 
1 Tipo de fichero (ver Tabla II) 

Longitud del bloque 
Dirección de inicio 
Diferente de 0 si es 

el primer bloque - 

roñaítud^totaldel fichero 

Dirección de ejecución-progra- 

mas en C. M. 

Pue den usarse libremen te^ 


una dificultad creciente en cada 
nivel. Por lo tanto, los programas 
englobados bajo la opción 1, son, 
en teoría, los más fáciles de 
desproteger. Sin embargo, esto no 
siempre es así, pues los programas 
en Código Máquina ocultos en 
líneas REM o DATA pueden 
tener una dificultad equivalente 
a los del nivel 4. 

Abordaremos a continuación el 
estudio del primer tipo 
de programas. 

Para el programador en Código 
Máquina, eliminar la protección 
creada por SAVE “nombre”,p no 
ofrece ninguna dificultad, siempre 
que se conozca la estructura de la 
cabecera de un bloque salvado en 
cinta. 

Cuando se graba un programa 
utilizando la instrucción SAVE, el 
ordenador lo divide en bloques de 
2.048 bytes (números de 1 a 255) 
como máximo y, acto seguido, va 
volcando en cinta cada uno de los 
bloques, pero precedidos de una 
«cabecera», es decir, de un 
conjunto adicional de bytes que, 
al volver a cargar el programa, 
informan al ordenador sobre todo 
lo necesario para ejecutarlo 
correctamente. La Tabla I 
muestra la estructura de una 
cabecera, indicando qué 
significado tiene cada uno de sus 
bytes. Como vemos, el bit 0 del 
byte 18 indica si el programa fue 
grabado con la opción «p». Es 
relativamente sencillo desarrollar 
un programa en Código Máquina 
que lea el byte 18, desactive el bit 
0, en caso de que estuviera 
activado, y grave el bloque sin 
ningún tipo de protección. Este 
trabajo lo realiza la utilidad que 
publicamos este mes. Este 
programa permite realizar copias 
en cinta o disco, elimina, si lo 
deseamos, la protección e imprime 


relevante información sobre el 
fichero a copiar: direcciones de 
inicio, longitud y ejecución. 

Para utilizar correctamente 
el copión, se deben seguir 
los siguientes pasos: 

1) Teclear el Programa I y 
grabarlo en cinta o disco con Save 
“COP”. 

2) Teclear, utilizando la opción 
1 del Cargador Universal de 
Código Máquina, el Programa II. 

3) Salvarlo a continuación en la 
misma cinta o disco, utilizando la 
opción 3 del Cargador Universal, 
y empleando el nombre 
“COP.BIN”. 

Cuando queramos utilizar el 
programa teclear. Run “COP”. 
Después de indicar si queremos 
realizar una copia en cinta o 
disco, se nos preguntará el 
nombre del programa fuente. Si 
pulsamos /Enter o [Intro, será 
copiado el primer fichero que esté 
grabado en la cinta. A 
continuación, deberemos indicar el 
nombre que queremos dar a la 
copia. Si contestamos [Enter, el 
nombre será «Unnamed file» en 
cinta o « Anonimox» en disco, 
donde X es un número o carácter 
actualizado por el «cop» para 
evitar que se creen 2 programas. 


TABLA II 

El byte número 18 indica el ti¬ 
po de fichero. Se descompone 
en los siguientes bits: 

' Bytes 

Descripción 

0 

Si está activó, el programa 
está protegido 

1-3 

Contenido del fichero: 

0 = Basic 

1 = Binario 

2 = Imagen de pantalla 

3 = ASCII 

4-7 = No tienen significado 

4-7 

Versión: 

Ficheros ASCII Versión = 1 
Otros ficheros Versión = 0 


Programa I 

10 ' Parte BASIC copiador 
20 ' Pedro H. Cuenca. 

30 NOOE I 
40 vez=131 

50 HEHQRV 13FFF:L0A0'copion.bin\i8 
000 

60 VIND0VI2,1,40,8,20:VINDOUiO,1,40 
,21,25 

70 IKK 1,26:INK 0,0:80RÜER 0 
80 CLS»2:CLS 

90 opc=0:s»ax=0:lnoi< 3 ":snoi»='':p 
r»='' 

100 ITAPE 

110 LOCATE 12,10,1:PRIHTI2,* 1. Ci 
nta a disco.' 

120 LOCATE 12,10,S:PRINT »2,'2. C 
inta a cinta.’ 

130 LOCATE 2,2:PRIHT 'ELIGE UNA 0PC 
ION, PULSAN00 til 0 121' 

140 WHILE opcOI AND opc02:opc=VflL 
<INKEYi):VENO 

150 IF opc=l THEN 10ISC.0UT:siax=12 
ELSE !TAPE:siax»15 
160 CLS:CLSt2 

170 INPUT 12,' Prograia a cargar * 

; Inoaf 

180 lno»l=UPPER$(lno»$) 

190 IF LEN(lnoii)>!5 THEN lno»»=LEF 
Udno»»,15) 

200 POKE 17000,LENUnoi») 

210 IF L£N(lno«J)=0 THEN 60T0 250 
220 F0R x=l TO LEN(lnoil) 

230 POKE 17000tx,ASC(HID»(lm>»»,x,l 
)) 

240 NEIT 

250 LOCATE *2,3,6:INPUTI2,'Programa 
a salvar '¡snoi» — —- 

260 snoi»=UPPER$(sno»») 

270 IF LEN(sno»»)>siax THEN sno«»=L 
EFT»(snoit,s«ax) 

280 IF LENIsnoi»)=0 ANO s»ax=12 THE 
N snoi»--'AN0NIH0'+CHR»(vez):vez=vez 
ti ELSE IF LEN(sno»*)=0 60T0 320 
290 F0R x=l T0 LENIsnoi») 

300 POKE i7050tx,ASC(HI0»(snoi»,x,l 
)) 

310 NEXT 

320 POKE 17050,LENIsnoi») 

330 L0CATEI2,3,11:PRINTI2,'Conserva 
r Protección (S/N) ? ';¡WHILE pr»<> 
'5' AND pr»0'N':pr»-UPPER»(INKEY») 
:WEN0 

340 PRINH2,pr»| 

350 IF prt-'N' THEN POKE 18024,1FE 
ELSE POKE 18024,1FF 
360 LOCATE I2,2:PRINT CHR»(7)'PULSA 
UNA TECLA", :CALL 18818 
370 CLS:CLSI2:PRINT *2,* Inicio == 

380 LOCATE *2,3,6:PRINT *2,'Longitu 
d ===--> 

390 LOCATE *2,3,11:PRINT »2,'Ejecuc 
ion ==> 

400 CALL 18000 

410 CLS:LOCATE 12,2:PRINT CHR»(7)'P 
ulsa una tecla.';:CALL 18813 
420 ¡DISC:6OT0 80 
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SERIE ORO 



SDLISDLIflRE 


oUsquare muestra en pantalla 
^ dos estructuras cuadradas de 
color y una dimensión de 3 X 3. 
El objetivo del juego es lograr que 
la de la izquierda sea idéntica a la 
forma objetivo, la de la derecha. 
Sencillo, ¿verdad?. Me temo que 
no. Se darán cuenta en cuanto lo 
intenten. 

Para hacer el juego aún más 
interesante de lo que es por sí 
mismo, se le ha dotado de tres 
niveles. El denominador común de 
todo ello es el tiempo. Un minuto 
en el primer nivel, y menos 
todavía en los siguientes. 

El método de juego no puede 
ser más sencillo. Cada uno de los 
cuadrados de la estructura de la 
izquierda tiene su equivalente en 
una de las teclas del teclado 
numérico del CPC. Pulsándolas, 
el color del cuadrado 
correspondiente cambia... y el de 
algunos otros también. Aquí está 
el meollo del juego, porque la 
secuencia de acciones para 
conseguir el objetivo no es la que 
parece a simple vista. Hay que 
descubrirla pensando con lógica. 

Por ejemplo: las teclas 1, 3, 7 y 
9 alteran el color de CUATRO 
cuadrados, es decir, la tecla 7 



Desde siempre, los puzzles 
han sido la debilidad de 
todos aquellos propensos a 
caer en la tentación de echar 
un pulso entre su mente y lo 
enigmático. En este 
programa, el «enemigo» es 
algo fantasmal. Ni siquiera 
el ordenador nos amenaza 
con su superior velocidad de 
cálculo de lo evidente. Sólo 
el tiempo, colgado de sus 
chips, gotea imparable hacia 
el mensaje fatal de «has 
perdido». Sin embargo, hay 
una solución: el ingenio 
juega y gana. 



cambiará los elementos 7, 8, 4 y 
5. Otras tedas causan efectos 
distintos: las 2, 4, 6 y 8 
transforman TRES cuadrados, y 
la tecla central (5) cambia 
CINCO, aquellos que constituyen 
la cruz central de la estructura. 

Para extraer algo más de 
acción, Solisquare sólo efectuará 
un cambio de color en los 
cuadrados si la tecla que se pulsa 
corresponde a uno negro. Si es 
naranja, nada sucede. Ni que 
decir tiene que si inadvertidamente 
coloca todos los cuadrados en 
naranja, apague y váyase. El 
mensaje de «perdiste, chico» no 
tardará en aparecer. En cuanto al 
juego, esto es todo. 

Los datos que definen la 
posición y área inicial de los 
cuadrados de la estructura 
objetivo están claramente 
señalados al final del programa, 
de tal manera que, una vez 
resuelto, se puedan construir otros 
usando la misma lógica. Cada una 
de las filas de Dalas definen un 
nivel. Los tres primeros números 
forman la primera fila de 
cuadrados en la pantalla, y así 
sucesivamente. Buena suerte. La 
van a necesitar. 
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Variables principales 


alorn 

vale 1 si todos los / 
cuadrados están en 
naranja. 

\ 

done 

vale 1 si se ha 
completado un nivel. 

> 

level 

nivel en curso. 


eount 

usado por la rutina que 
controla el tiempo. 

bdx,bdy 

coordenadas de 
posición. 


bx,by 

coordenadas empleadas 
para cambio de color y 
dibujo de un cuadrado. 


bsz,col 

tamaño y color de un 
cuadrado. 



^ysoS/* 


X? « 


% 


% 


c oa X/. 
/ o / . °o 


/ 


/ 


m 


10 REN 

20 REN 3GLIS0UARE 
30 REN 
40 REN 

50 ENT 1,100,15,3:ENT 2 f 100,10,3:EN 
T 3,50,-4,2 

60 PAFER 0:KODE 1:BQRDER 0:INK 0,0; 
INK 1,15:INK 2,2S: INK 3,1 
70 DEFINT a-::DIN bd(2,2,3),kbt(3,1 
),sqtch(9,10) 

SO FQR i=l TO 3:READ !ibt(i,0),kbt(i 
,1):NEXI 

90 FOR i=l TO 3:READ sqtchíi,0) 

100 FOR j=l TO sqtchíi,01*2 STEP 2; 
READ sqtchíi,j):READ sqtchíi, ¡+1) 

110 NEXT j,i 

120 FOR 2=0 TO 3;FOR i=0 TO 2:FOR j 
=0 TO 2 

130 READ bdíi,j,:) 

140 NEXT j,i, 2 

150 EVERY 50 60SU8 430:DI 

160 REN SE JUEGA 

170 FOR 1evel=1 TO 3 

130 80SU8 640 

190 count=61-ílevel-n*8:EI 

200 alorn=0:done=0:bs2=3:HHILE done 

=0 AND alorn=0 

210 iki=*0':WHILE ik$<"l" OR ikH)*3 
”:GOSUB 800:WEND 

220 ik=VALíik$):bdx=kbtíik,0):bdy=k 
btíik, 1) 

230 IF bdíbdx,bdy,0)=l THEN 210 
240 FOR z=l TO sqtcbíikjO)*2+2 STEP 
2 

250 bx=bdx+sqtch(ik| 2 ):by=bdy+sqtch 
(i k, z +1) 

260 bd(bx,by,0)=bd(bx,by,0) XOR 1 

270 col=bdíbx,by,0):bx=bx*5e23:by=b 

yíj+5:GOSUB 540 

230 NEXT 

290 GOSUB 580 

300 WcND 

310 REN NIVEL FINAL 
320 DI: IF T,, E' ! L5fATE 10,22:P 
EN 0:PRINT’VAYA! TODO NARANJA":SOTO 
500 

330 IF level<3 THEN LOCATE 4,22:PRI 

NT"NO ESTA HAL! PRUEBA OTRO NIVEL" 

ELSE 360 

340 GOSUB 770 

350 NEXT 

360 REN EXITO 

370 PAPER 0:CLS:FOR i=lO TO 1 STEP 
-1 

380 col = (i MOD 2) +2;bx=20-i*.by-ll-i 
:bsz =2*i:G03U3 540 
390 NEXT 

400 PEN 1:PAPER 0:LOCATE 13,3:FRINT 
"FELICIDADES" 


410 LOCATE 15,14:PRINT"LO HICISTE 

420 GOSUB 770:SOTO 510 

430 REN CONTADOR 

440 count=count-l:PEN 2 

450 SOUND l,5+cour.tH0,3,15:S0UND 4 

,5+counU3,4,15 

460 LOCATE 5,25:F'RINT count 

470 IF countOO THEN RETURN 

430 REN FALLO 

490 PEN 0:LOCATE 15,22:PRINT*DEMA3I 
ADO LENTO" 

500 SOUND 1,0,0,15,0,1:SOUND 2,0,0, 
15,0,2 

510 LOCATE 7,23:PRINT’PULSA ESPACIO 

• 

520 WHILE INKEY(47)=-l:INK 2,RNDt26 
:INK 3,RN0»26:WEN0 
530 RUN 

540 REN BX BY BSZ COL 

550 WINDOW #7,bx,bx+bsz,by,by+bs2 

560 PAPER 17,col¡CLS 17 

570 RETURN 

530 REN COMPLETO? 

590 done=l:alorn=l:FOR i=0 TO 2:FOR 
j-Q TO 1 

600 IF bdíi,j,level)<)bd(i,j,0) THE 
N done=Q 

610 IF bdíi,j,0)=0 THEN a¡orn=0 
620 NEXT j,i 
630 RETURN 

640 REN DIBUJA PANTALLA 

650 PAPER 0:CLS:PRINT TAB(101;:FA D E 

R 3:FOR i = l TO 10-.PEN l:PRINT"*"j:P 

EN 2:FRINT MIDíCSOLISQUARE", i, 1);: 

NcXT:PEN l:PRINT*f 

660 RESTORE 990:FOR i=l TO 4:READ b 

x,by,bsz,coi¡GOSUB 540:NEXT 

670 LOCATE 8,4:PAPER 3:PEN 2:PRINT" 

OBJETIVO" 


680 PEN 1:LOCATE 1,25:FRINT"TIM£" 
690 LOCATE 31,25:PRINT"NIVEL‘¡level 
700 vx=3:wy=4:z=level:60£ ! JB 720 
710 w:<=22:z=0 

720 FOR i=Ü TO 2:FOR j=0 TO 2 
730 bsz=3:ccjl=bd(i,j,z):bx='j(*!<•(it 
5):by=wy+l+(j*5) 

740 GOSUB 540 
750 NEXT j,i 
760 RETURN 
770 REN SONIDOS 

730 SOUND 1,220,100,15,0,3:SOUND 4 f 
210,100,15,0,3 

790 FOR d=l TO 3000:NEXT:RETURN 

800 REN TECLADO 

310 WHILE MEYÍÜ"":WEND 

820 ikt=*":WHILE ikí="":ik$=INKEY4: 

WEND 

830 RETURN 

340 REN TRASLACION TECLADO 

850 DATA O,2,1,2,2,2,O,1,1,1,2,1,0, 

O,[,0,2,0 

860 REN CUADRADOS A CAMBIAR 
S70 DATA 3,O,-1,1,O,i,-1,2,-1,0,1,0 
880 DATA 3,-1,0,0,-1,-1,-1,2,0,-1,0 
,1 

890 DATA 4,-1,0,1,0,O,-1,0,1 

900 DATA 2,0,-1,0,1,3,1,0,‘Q, 1,1,1 

310 DATA 2,-i,O,1,0,3,-1,0,0,1,-1,1 

920 REN POSICION DE COMIENZO 

930 DATA 1,1,1,1,1,1,1,0,1 

940 REN DATOS PARA OBJETIVO 

950 DATA O,O,O,O,1,0,O,O,O 

960 DATA 1,0,1,0,O,O,O,1,0 

970 DATA O,1,0,0,1,0,1,1,1 

930 REN DATOS DE VENTANA 

990 DATA 3,4,15,2,22,4,15,2,4,5,13, 

3,23,5,13,3 

- — 
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PERSONAL 



Para solicitar las 
tapas, remítanos hoy 
mismo el cupón de 
pedido que encontrará 
en el encarte interior 




No necesita encuadernación. 

gracias a un sencill 
sistema de fijación 
que permite ademá 
extraer cada revista 
cuantas veces sea 

0 

s 

necesario. 













INFOBYTES 



Dispara 

con un Magnum 

No hay que ponerlo encima de 
una mesa, como a la mayoría de 
los joystick existentes en el 
mercado. Tampoco se adhiere a la 
tabla a través de ventosas. 

Magnum se empuña como si se 
tratara de una pistola y se maneja 
con las dos manos. Con una 
orientamos la dirección, mediante 
el saliente de la parte superior, y 
con otra le sostenemos y pulsamos 
el botón de disparo. 

Dro Soft (Francisco Remiro, 

5-7 28028 Madrid, tel.: 246 38 02) 
es la distribuidora en España de 
este joystick, creado por 
Mastertronic, que ya está a la 
venta con un precio de 3.300 
pesetas. 


Seguro de vida 

El polvo, la luz y el calor son 
los tres principales enemigos de 
los ordenadores y de una buena 
protección contra ellos dependerá 
su buen funcionamiento. Por ello, 
cuando no se utiliza el ordenador 
o la impresora, será conveniente 
cubrirlos con una funda. 

Micro-1, C/ Duque de Sexto, 
50. 28009 Madrid. Telf.: (91) 

274 75 02, nos ofrece unas fundas 
a la medida para los ordenadores 
Amstrad de la serie PC y para las 
impresoras DMP 2000/3000 al 
precio de 950 ptas. La ventaja de 
estas fundas es que evitan a los 
tres enemigos mencionados ya 
que, además, están fabricadas en 
un material anticalorífico. 




Salta a la vista 

Una vez más volvemos a 
recordar, los efectos nocivos para 
la vista que conlleva trabajar 
largar horas frente a un monitor. 
Si además se trata de teclear 
frente a uno de color situado a 
media distancia de los ojos, los 
problemas son aún mayores. Para 
remediarlos, qué mejor manera 
que colocar un filtro. El que se ve 
en la fotografía es del tipo 
«cristal» y está hecho a la medida 
para adaptarse a las pantallas de 
los monitores «CM» de los 
Amstrad PC 1512/1640 y «ECD» 
del 1640. El filtro se fija a la 
pantalla por medio de unas tiras 
adhesivas y lo podréis encontrar 
por 5.500 ptas en Comercial 
Nuevos Ministerios en el vestíbulo 
de la estación Renfe de la calle 
Raimundo Fernández Villaverde 
de Madrid (Telf.: (91) 456 35 58). 



Jugando a dúo 


La tarjeta 
parlanchína 

Lo último en accesorios para el 
Amstrad PC 1512/1640 viene de 
la mano de Teo Systems. Plaza de 
Cristo Rey, 3, esquina a Cea 
Bermúdez. 28040 Madrid. Telf.: 
(91) 244 59 36. El invento en 
cuestión se trata de una tarjeta 
que habla, no un sintetizador de 
voz, sino de una forma de 
convetir al PC en un cassette que 
registra en un fichero con total 
fidelidad Jo que recoge su 
micrófono, reproduciéndolo a 
continuación por un altavoz 
externo. Con ello, el contenido de 
un disco relleno de ficheros 
hablados es el equivalente a una 
cinta de audio de dos horas de 
duración (240 minutos = 360 
Kb). Para su funcionamiento, el 


software que se incluye con la 
tarjeta reserva una parcela en la 
memoria RAM del ordenador de 
manera que puede trabajar 
simultáneamente con otro 
programa en funcionamiento, 
haciéndolo muy útil para poner 
voz en «off» a programas de 
demostración, por ejemplo. La 
tarjeta junto con el software, 
micrófono y altavoz se sirve al 
precio de 224.000 ptas. 


La toma de joystick que incluye 
el teclado de los ordenadores 
Amslrad PC es para la utilización 
de joystick digitales norma Atari, 
y su sistema de direccionamiento 
coincide con el de las teclas del 
cursor del bloque numérico. Sin 
embargo, la mayoría de los juegos 
que ya existían para los PC 
compatibles, utilizaban un sistema 
de joystick diferente. Nos 
referimos a los joysticks 
analógicos cuyo funcionamiento se 
b asa en 1 a posición dedos 
potenciómetros en direcciones 
perpendiculares. El Amstrad PC, 
como cualquier otro modelo de 
compatible también puede 
utilizarlos, sirviéndose de la 
tarjeta de media longitud que se 
insertará en cualquiera de los tres 
slot$ de expansión del ordenador. 

—-- 
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A todo color 

Ya va siendo hora de que el 
ordenador abandone el sombrío 
hábito de utilizar discos de color 
negro. Con los discos de 5 1/4 
que ofrece Micro Comp Club. (C/ 
Cuatro Amigos, 5 post. 28029 
Madrid. Telf.: (91) 733 22 453) se 
rompe la monotonía y, además, 
con los distintos colores se facilita 
la clasificación de los programas 
por temas. Con cada juego de 
diez discos se incluye además un 
archivador —también en variados 
colores— al precio de 2.000 
pesetas. 



A la salida de la tarjeta se 
encuentran dos conectores, donde 
irán dos joysticks que posibilitan 
el uso de los juegos por dos 
personas. EL joystick analógico 
de al foto cuenta, además, con 
ajuste del «cero». Tanto la tarjeta 
como el joystick se venden por 
6.900 ptas. unidad, en Teo 
Systems. Plaza de Cristo Rey, 3, 
esquina a Cea Bermúdez. 28040 
Madrid. Telf.: (91) 244 59 36. 



Los que dependen 
de la ener g ía lo saben 

Los Ordenadores y todos los procesos que requieren 
calidad y continuidad de corriente eléctrica, son muy sensibles 
y un fallo, por insignificante que sea, les sienta fatal, 

A un ordenador, a cualquier proceso electrónico, un corte 
de fluido, una caída de tensión, cualquier oscilación les 
afecta. 



Acuda a 
LA SOLUCION 
lOlerlin Gerin 


El dominio de la energia eléctrica. 



MERLIN GERIN Plza. Dr. Letamendi, 5-7 - Tel. 254 02 00 s 

08007 BARCELONA 

Señores: 

Deseo recibir información sobre las soluciones MERLIN GERIN de protección 
y alimentación ininterrumpida 

EMPRESA. . 

Persona a contactar. 


Dirección 

Teléfono.. 




J 


Población. 
























































GRUPO AMSTRAD ESPAÑA 


MlCROBYTt 


Castellana 179,1®, 28046 MADRID, Tels. 442 54 33 / 442 54 44 / 442 58 88 / 442 58 99 


SOFTWARE MICROBYTE - JUEGOS 


LO UNICO 
DIFÍCIL 

DE ENTENDER 
DE NUESTROS 
PROGRAMAS, 
ES LO INCREÍBLE 
DE SUS PRECIOS 


LA ISLA DEL TESORO 
PERRY MASON 
9 PRINCIPES EN AMBER 
DRAG0NW0RLD 
CYRUSIICHESS 
SUMMER GAMESII 
WINTER GAMES 
GOLF (MEAN 18 GOLF) 

PITSTOPII 

SN00KER (ALEX HIGGINS SN00KER) 
EL ENIGMA DE ACEPS 
GAMMA GAMES 
RARCHPLAY (Parchís) 


3.500 Ptas. + 1 VA 



¡I 
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DOS POR UNO 


Revolución 
de los 

E rbc Software ha decidido 

lanzar una oferta que puede 
volver loco de alegría 
a más de un asiduo consumidor 
de videojuegos. 

Durante este mes de marzo, 
cada vez que alguien se acerque a 
comprar un juego de Erbe recibirá 
otro de regalo. Es decir, pagará 
uno y se llevará dos títulos que él 
mismo eligirá. En esta oferta 
están incluidos todos los juegos 
que esta compañía tenga en el 
mercado en este momento. 

Con esta medida se quiere 
conmemorar algo que todos 
nuestros lectores recordarán: la 
bajada de los precios del software 
de juegos. Esta importante 
iniciativa fue tomáda por Erbe 
hace ahora un año. 

La reducción fue realmente 
espectacular, casi un 60 por 100 
en las cintas y algo más de un 40 


en el mundo 
juegos 

por 100 cuarenta en los discos. 

En aquel momento, los precios 
de este tipo de productos estaban 
realmente altos, de manera que el 
número de juegos al que podía 
acceder un consumidor era muy 
reducido, especialmente si se tiene 
en cuenta la edad de la mayoría 
de los aficionados a los 
videojuegos. Así las cosas, los 
piratas hacían su agosto, 
vendiendo copias ¡legales a un 
precio muy inferior al de los 
originales. De hecho, ésta fue una 
de las razones que llevaron a los 
responsables de Erbe a tomar una 
medida tan «radical», pero que 
fue inmediatamente seguida por la 
práctica totalidad de las 
compañías españolas; el 
consumidor pudo acceder a un 
mayor número de títulos 
originales por c! mismo dinero. 

Lo cierto es que, a pesar de que 



Paco Pastor, director de Erbe Software. 


en un principio hubo algunas 
opiniones contrarias o excépticas, 
esta iniciativa fue un éxito y su 
mayor beneficiado —aparte, claro 
está, del consumidor, que pudo 
así acceder a un mayor número de 
títulos originales por el mismo 
dinero— fue el propio mundo de los 
juegos. 


HIÑA 

DEL SOFT 


C/. ARENAL, 26. BAJO 5 
TELEE: (91) 542 64 33 
28013 MADRID 


NOVEDADES EN: 



Venta por teléfono 
de 5 a 8 de la tarde, 
tenemos más de mil 
títulos con las 
últimas novedades. 


• 1 ^ • • • •• \ • 
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SUPER OFERTAS DE MARZO 


AMSTRAD CINTA 

TITULO 

P.V.P. 

4 grandes juegos 

850 

9 grandes juegos 

2.000 

500 cc Grand Prix 

900 

Amaurote 

675 

Basketball 2 on 2 

825 

Centurions 

850 

Combat Linx 

400 

Cosa Nostra 

950 

Carzy Erbert 

400 

Dan Daré 

850 

Dead or Alive 

400 

Decathlon 

400 

Guadalcanal 

850 

High Frontier 

850 

Indor Soccer 

400 

Fifth Quadrant 

850 

Flash Gordon 

675 

Flight Simulator 

575 

Pack de Película 

1.500 

Run for Gold 

400 

Storm Bringer 

675 


TITULO 

P.V.P. 

Strike Forcé Cobra 

575 

Super Sprint 

825 

The Last Mission 

900 

The Vampire 

575 

Trap Door 1 

575 

Trap Door II 

850 


AMSTRAD DISCO 

TITULO 

P.V.P. 

Goody 

2.300 

Guadalcanal 

2.300 

Super Sprint 

2.300 

Trap Door II 

1.900 

Woder Boy 

2.200 

Yogy Bear 

1.900 


PC COMPATIBLES 

TITULO 

P.V.P. 

Boulder Dash 1 

2.500 1 

Boulder Dash II 

2.500 

Macadan Bumper 

2.600 

Edén 

2.600 













































































El precio 
de los 
juegos 

Todos nos hemos 
preguntado alguna vez 
por qué un mismo juego 
es en disco mucho más 
caro que en cinta. A 
simple vista parece un 
abuso, pero si se analizan 
los métodos de 
producción y los precios 
de las materias primas 
de cada soporte, las 
causas se hacen 
evidentes. 



Diferencia 
de precio entre 
disco y cinta 

El motivo de mi carta no es 
hacer «una denuncia», como ya 
estamos acostumbrados, sino una 
petición por una causa yo creo 
que justa. La situación es ia 
siguiente: 

El precio de una cinta es 
normalmente 875 pesetas, (caso 
Erbe y Dinamic), hasta ahí, bien. 
El problema viene en que ia 
versión de disco vate 2.250, lo 
cual supone una diferencia de 
precio de 1.375 pesetas, que es 
realmente excesivo; aun teniendo 
en cuenta la diferencia de precio 
entre ambos soportes de datos, 
que no es tan alto ni mucho 
menos. El precio del disco virgen 
es aproximadamente 500 pesetas, 
y aun suponiendo que ¡a cinta no 
costara nada, la diferencia sería 
pues de 500 pesetas. También 
comprendo que el precio de Ia 
carátula sube el precio, pero 875 
pesetas, no creo que valga, 
además, igual que ha sido 
suprimida en la cinta, lo puede ser 
en el disco. Por otro lado, estos 
precios son infundados, puesto 
que creo yo, que cuando bajaron 
el precio de los diskettes, bien 
podrían bajar los juegos en disco. 

Con la esperanza de que mi 
carta sea escuchada, y hagan 
ustedes llegar nuestras peticiones a 
las casas de software y que, 
seguro que sí bajarán el precio, 
tendrían muchas más ventas en el 
soporte que va ganando terreno a 
la cinta, el disco. 

Nota: Supongo que no me 
harán ni caso, pero en caso de 
que así sea, y haya una posible 
respuesta o información, pueden 
hacerlo a través del correo o 
mediante la publicación en su 
revista. 

José M. a Peribáñez Redondo 

Como verás, sí te hemos hecho 
caso, hemos investigado, recogido 
la información necesaria y te 
vamos a contestar. La respuesta 
será a través de la revista, ya que 
es un tema que interesa 
probablemente a más de uno de 
nuestros lectores. Cualquiera se lo 
ha preguntado alguna vez. 

Ya que lo nombrabas en tu 
carta, nos pusimos en contacto 
con Jesús Alonso, director 
comercial de Dinamic. Jesús nos 


explicó las razones de ésta, 
aparentemente injustificable, 
abismal diferencia entre el precio 
de la cinta y el disco de un mismo 
juego. 

La primera de las causas se 
encuentra, como muy bien 
apuntaba José María, en el precio 
de los soportes. Según nos 
aseguró Jesús, a ellos les cuesta 40 
veces más un disco virgen que una 
cinta virgen. 

Por otro lado, el proceso 
industrial para reproducir juegos 
en cinta es el mismo que se utiliza 
con las cintas musicales, y lo 
realizan las mismas compañías. 
Estas empresas llevan funcionando 
desde hace casi 30 años, por lo 
que en este tiempo han logrado 
abaratar los costes 
considerablemente, automatizando 
la producción mediante cadenas 
de montaje, en las que sólo 
interviene la mano humana a la 
hora de realizar el master. 

Todo este proceso se lleva a 
cabo a través de mecanismos muy 
sofisticados y a una gran 
velocidad. En la cadena se pone 
hasta el precintado de las cintas y 
salen empaquetadas en cajas de 
cien unidades, directas para su 
distribución. Por tanto, los costes 
de producción de una cinta son 
muy bajos. 

La producción de los discos es 
muy diferente. Para empezar, 
aunque en algunos países se han 
creado empresas que se dedican a 
ello, en España no hay ninguna 
que se dedique a duplicar discos. 
Además la maquinaria más 
elemental cuesta entre 20 y 30 
millones de pesetas. 

Hasta hoy día, el proceso de 
duplicación de discos es 
totalmente artesano. Se necesita 
una persona en todas las 
etapas. En palabras de Jesús 
Alonso, «es un proceso no 
industrial y sale carísimo». Lo 
primero que hay que hacer es 
desprecintar todos los discos 
vírgenes y sacarlos del estuche. 
Después se van acumulando y se 
les pone, uno a uno y a 
mano, la etiqueta 
identificativa. Con los 
ordenadores colocados en 
serie o paralelo, se 
procede a introducir 























cada uno de los discos en las 
disqueteras, se formatean y se 
graban. 

Una vez duplicados, hay que 
verificar cada uno de ellos para 
ver si están bien grabados, cerrar 
las patillas de seguridad e 
introducirlos en sus respectivos 
estuches. Estos estuches, a 
diferencia de los de las cintas que 
están incluidos en el precio final, 
hay que pagarlos, y no son 
precisamente baratos, ya que 
están hechos de un plástico de 
alta calidad. 

También las carátulas se 
introducen a mano. El precio de 
cada una de ellas es cuatro veces 
superior al de la cinta, ya que 
también tienen un tamaño mayor. 

Por último, se cierran los 
estuches, se ponen en cajas y se 
precintan, listos para la 
distribución. 

Por otra parte, Jesús asegura 
que los juegos de Dinamic en 
disco están costando actualmente 
1.125 pesetas cada uno. La razón 
está en la serie Dos por Uno, que 
a 2.250 pesetas, incluye dos 
juegos en cada disco. «La 
diferencia entre las 875 pesetas de 
la cinta es muy pequeña. Además, 
los que sacamos al mercado solos, 
como Frcddy Hardest, se están 
vendiendo a 1.750 pesetas.» 

Queda claro que todo este 
proceso necesita de la presencia de 
un ser humano, al que hay que 
pagar, qüe unido al precio de los 
materiales, mucho mayor que los 
de las cintas, encarece la 
producción de los juegos en disco. 

¿Qué pasó con 
Genac-03 

Estimados amigos: con esta 
carta deseo haceros una pregunta 
a la que os dejo libertad en la 
forma de contestar, bien sea 
directamente o en vuestra actual 
Amstrad Personal. 

Os he pedido el disco del 
programa Genac-03. Envié un 
talón de 999 pesetas que ya se ha 


cobrado, pero no sé nada de mi 
pedido. Revisad vuestras listas de 
pedidos. 

Manuel Garbarda Oliveros 


Sinceramente, nuestra primera 
reacción al leer que nos habías 
pedido el disco del Genac-03 fue 
de sorpresa. Parece que ha habido 
un error, quizá porque no has 
leído bien los cupones de pedidos 
que aparecen en el encarte central 
de nuestra revista. Allí se ve 
claramente que los pedidos que se 
nos pueden hacer, hasta este 
momento, son los 
correspondientes a nuestra 
anterior etapa, Amstrad Semanal. 

Si aparece en alguno de los 
artículos de Amstrad Personal el 
anagrama de que esos programas 
estarán en cinta o disco, no quiere 
decir que ya se puedan pedir. 
Simplemente que estamos 
preparando su lanzamiento a 
través de uno de dichos soportes, 
algo que siempre lleva tiempo, ya 
que tenemos que decidir lo que irá 
dentro de cada uno, preparar el 
master y luego grabar las copias. 
Sólo cuando aparezca en el 
encarte la ficha correspondiente a 
la actual etapa de nuestra revista, 
querrá decir que ya están 
disponibles para todos los que 
deseen pedirlos. 

Esto es una aclaración general, 
para todos y cada uno de los 
lectores que deseen pedirnos 
discos y tengan dudas sobre 
cuándo lo deben hacer. 

Concretamente el caso de 
Manuel, requiere una explicación 
adiciona!. Empecemos por el 
dinero, que siempre es el más 
sangrante. Lo cierto es que en este 
tema el error ha sido nuestro. La 
razón es bastante simple. Cuando 
llegan los talones de los pedidos, 
como se supone que son sobre los 
discos que estamos vendiendo, se 
mandan directamente al banco 
para cobrarlos. Sólo después, a la 
hora de enviar a cada uno de los 
compradores sus programas, se 
puede advertir un error de este 
tipo. Además, todo este proceso 
se lleva a través de departamentos 
diferentes, nunca la redacción de 
la revista. 

Sin embargo, solucionar este 
problema concreto es bastante 
sencillo. En vista de la situación y 
tratándose de un caso aislado, le 
enviaremos a Manuel un disco 
grabado con el programa 
Genac-03. 


Suscripciones 
que no llegan 

No sé si debo escribir a esta 
sección para exponer mi caso. Si 
no es aquí, espero que hagáis 
llegar mi carta a quien 
corresponda. 

Yo soy suscriptor de vuestra 
revista, pero en la anterior etapa. 
No he ¡legado a recibir tres 
números, no sé si por fallo de 
correos o vuestro. 

Que no hubiese recibido uno, 
podría ser comprensible, pero no 
recibir tres, la verdad es que no lo 
entiendo. 

Espero que no haya ningún 
problema para que me los 
mandéis, ya que he pagado por 
ellos. 

Los números que no he recibido 
son el 84, 94 y 98. Aquí os 
adjunto mis datos personales. 

Fernando Tamavo Izquierdo 


Cuando recibimos tu carta, lo 
primero que hicimos fue 
comprobarlo con el departamento 
de suscripciones. 

Esos números que no has 
recibido constan como enviados, 
por lo que la única explicación 
posible es que se hayan perdido 
en correos, algo que no es tan 
inusual como pudiera parecer, 
sobre todo cuando se trata cfc 
publicaciones periódicas. 

Por supuesto, como tú no los 
has recibido, nosotros vamos a 
volver a enviártelos. 

Sin embargo, hay una cosa que 
nos gustaría decir ahora y para 
todos aquellos suscríptores que 
alguna vez os encontréis en una 
situación parecida. Cuando no os 
llegue un número determinado, 
comunicarnos! o inmediatamente, 
en un plazo de una o dos 
semanas, ya que si no es mucho 
más complicado para nosotros 
comprobarlo y enviaros dichos 
números. 
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Si aún no la recibe en su domicilio 

SUSCRÍBASE AHORA 
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Y AHÓRRESE 
MÁS DE 


UNA suscripción 
que sólo 
íe ofrece 
ventajas 

1? Recibir 
cómodamente 
en su domicilio, 
puntualmente 

cada mes, 

su revista 


3 .° 


2 ? Ahorrarse un 25% de descuento 

en la compra de cada revista 
Si se recibe con tarjeta de crédito recibirá 
totalmente GRATIS un número más 

4 -° Al suscribirse usted entra 
a formar parte del CLUB DEL SUSCRIPTOR 

con un 15% de descuento en todos 
los artículos de HOBBY PRESS 


Para mayor comodidad 

suscríbase 
por teléfono 

( 91 ) 734 65 00 






















LA ELECCION ES TUYA 


AFTEROIDS: El gran 
juego de acción que 
pondrá a prueba tus 


ARKOS: El 
arcade que 
esperabas. 

Exclusivo 
sistema de 
tres cargas. 


HUMPHREY: La odicción 
por excelencia. Una 
persecución sin límites. 


ZIGURAT SOFTWARE: AVDA. BETANZOS, 85. ESTUDIO 2. 
28034 MADRID. TEL.: (91) 739 30 23 

DISTRIBUIDOR: ERBE SOFTWARE, C/. NÚÑEZ MORCADO, 11 
28036 MADRID. TEL.: (91) 314 18 04 
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es 



Llegar al final 


En esta sección habitualmente/ se incluyen sugerencias de todo 
tipo que los lectores nos envían con la sana intención de facilitar 
el acceso al final de un juego. Este mes hemos dado un paso más, 
y tenemos pokes, cargadores y otras cosas que creemos merece la 
pena insertar en estas páginas para dejar sentado el carácter 
universal de las mismas. Tanto vale un acertado consejo, como un 
poke de vidas infinitas. Ambos sirven para llegar al final. 



COBRA 


Basta con conseguir una vida 
extra. Encontrar un garage, en¬ 
trar por la derecha, matar a la 
chica que te quitará 500 puntos 
y, después, conseguir otra vida 
extra. Esta operación se puede 
repetir todas las veces que quie¬ 
ras y sirve también con los que 
se han suicidado, con los gans- 
ters... Es decir, con todos los que 
quitan puntos. 

Para el Roland in the caves: se 
pulsa la tecla del cursor que in¬ 
dica hacia abajo al comenzar la 
partida y, así, se pasa al siguien¬ 
te nivel. 

J. Ramón Barrada González 
Barcelona 


3D GRANP PRIX 

En la parrilla de salida, acele¬ 
ra al máximo, y cuando la luz se 
ponga verde, pon la primera 
marcha y acelera al máximo, 
pon la segunda y acelera al má¬ 
ximo, pon la tercera y así hasta 
la cuarta, de esta forma sales 
más rápido. 

Para adelantar a los coches. 
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pon la rueda del coche pisando 
¡as rayas rojas y blancas de los 
extremos, de esta forma no cho¬ 
carás. Si quieres elegir cualquier 
circuito, pulsa Esc y Control con 
lo que te pedirá una clave, po¬ 
nes ARTWORK y ¡Voilá! 

Raúl Gonzalo Díaz 
Barcelona 


LflST V8 

Si quieres saber el recorrido 
del coche a la base, dejas al jue¬ 
go solo, sin apretar ninguna te¬ 
cla, y al cabo de un momento el 
coche comenzará a andar y po¬ 
co a poco recorrerá el camino 
correcto para llegar a la base. 

Raúl Gonzalo Díaz 
Barcelona 

OLE, TORO 

Para pasar todas las pruebas, 
el botón del capote, picador, es¬ 
pada... se pulsa cuando la cabe¬ 
za del toro vaya paralela, esté 
justo debajo de la raya que figu¬ 
ra una madera en el burladero 
a derecha e izquierda. Con es¬ 
to, el toro nunca te pillará. 

Raúl Gonzalo Díaz 
Barcelona 


OLE,TORO 



GREEN BERET 

Para pasar el final de la se¬ 
gunda pantalla es suficiente con 
colocarse en la mitad de la pan¬ 
talla y desde ahí ir disparando 
y girando cuando convenga. 
Para pasar el final de la tercera 
pantalla hay que tener cuatro 
misiles. Para matar los dos pri¬ 
meros helicópteros se utilizan los 
que sean y, si sobra alguno, se 
malgasta. Entonces se consiguen 
otros cuatro misiles y se matan 
los dos helicópteros restantes. 
Para pasar la cuarta y última 
pantalla: consigues llegar al fi¬ 
nal y, una vez allí, como el que 
dispara sale por la izquierda, 
ponte a la izquierda también y 
dispara sin parar. 

J. Ramón Barrada González 
Barcelona 



CAMEIOT 

WARRIORS 

A pesar de ser un juego anti¬ 
guo presenta dificultades: para 
pasar la pantalla del dragón de¬ 
béis colocaros en la segunda va¬ 
lla y, cuando el pájaro esté lle¬ 
gando a la antorcha, saltar co¬ 
locándose así en una especie de 
podio desde la cual caminare¬ 
mos hacia el dragón, colocán¬ 
donos sin darnos cuenta dentro 
del castillo. 

Marco Antonio 
Gijón 























































ENDURO RflCER 

Durante la 1 , a , 2. a y 3. a fase 
podemos utilizar un truco para 
conseguir que nuestra moto ca¬ 
mine sola ; a bastante velocidad 
y siendo inmune a obstáculos: al 
comenzar la cuenta atrás pulsa 
las teclas de control ( Ctrl] y Crl. 
Mantón la primera pulsada unos 
segundos y sólo deberás dirigir 
la moto, si quieres, a derecha o 
izquierda (sin acelerar). En la 
5. a fase si os ponéis a la derecha 
de los árboles alcanzaréis 199 
km/h sin encontrar osbstáculos. 

Marco Antonio 
Gijón 


FRANK BRUNO'S 
BOXING 

Somos dos amigos que en un 
arrebato de ira contra nuestros 
contrincantes del Frank Bruno's 
Boxing (ya que no pasábamos 
del tercero), contraatacamos 
fuertemente y, después de varias 
horas, nuestro esfuerzo fue re¬ 
compensado por la obtención 
del título. 

Para aquellos que no hayan 
logrado «llegar al final», aquí 
van todas las claves para todos 
los contrincantes, por si quere¬ 


mos ¡ugar (mejor dicho, luchar) 
con el último sin tener que pasar 
los anteriores. 

Es importante utilizar el nom¬ 
bre que indicamos, pues sino es 
con este nombre, las claves no 
sirven. 


Nombre 

MCR 

(o cualquiera) 

MCR 

MCR 

MCR 

MCR 

MCR 

MCR 

MCR 

MCR 


Clave 


(instantáneo) 

CBL1IFGM9 

N5PIOOEI2 

F9JI00MFB 

03NIN9KM7 

C6QIOCI9A 

IAKINMG03 

940II0EF9 

A50IIBHN7 


Contrincante 

Canadiense 

Japonés 

Ruso 

Africano 

Francés 

Italiano 

Australiano 

Estadounidense 

Estadounidense 


Javier Croix & F. Ramírez 
Palma de Mallorca 


PROHIBITION 


Algunas veces nos quejaremos 
de que el tiempo es insuficiente 
pero esto tiene fácil arreglo. 

Cuando nos queda un segun¬ 
do daremos al Esc (que nos in¬ 
forma de las balas y el dinero) 
y comprobaremos que el tiempo 
sigue avanzando, pero al llegar 
a cero vuelve al tiempo máximo. 
En ese momento soltaremos el 
Esc y dispondremos de ese tiem¬ 
po. 

Jesús Feo. Escribano Serrano 
Madrid 



BRUCE LEE 
SIN FRONTERAS 

He descubierto que en el jue¬ 
go de Bruce Lee se puede pasar 
de algunas habitaciones a otras 
sin necesidad de coger las lám¬ 
paras que son necesarias para 
abrir las puertas. Por ejemplo, 
en la tercera habitación se po¬ 
ne a Bruce en la esquina inferior 
derecha, y se agacha con la te¬ 
cla «Z». Después se pasa a la ha¬ 
bitación de al lado rápidamen¬ 
te y ahorrándose un largo cami¬ 
no para llegar a esa habitación. 

Jaime Méndez Anes 
Asturias 



FINDERS KEEPERS 


Tengo un par de interesantes 
trucos para Bruce Lee. 

1. Consiste en pasar a la se¬ 
gunda parte sin ni siquiera tocar 
la primera. Para ello, nos basta 
situarnos donde deberá estar la 
entrada a la segunda parte y 
agacharnos. Sin saber cómo, 
aparecemos en la siguiente pan¬ 
talla. Este truco funciona tam¬ 
bién en otras salas. 

2. Para conseguir 99 vidas en 
este juego, es suficiente cogerlas 
opciones 2 player y Computer y 
siguiendo el método anterior, ir 
a la sala de las vidas y coger 
una. Por arte de magia se con¬ 
vertirán en 99. 

David Zelaia 
Guipúzcoa 
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Envíelo antes del 22 de marzo 


Rellena el cuestionarle que 
encentrarás en la pág. 81 , 
y envíale por corree a 
nuestra redacción (no 
necesita franquee), 
siguiendo las instrucciones 
de plegado y corte. 
Ayúdenos a mejorar su 
revista ••• y llévese un 
AMSTRAD PORTÁTIL A 
CASA 
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ambaremos enfrentarnos 
número de enemigos, 
Imente alcancemos la 
Y destruyamos 


uando nuestro héroe, 
Grizor, recibió la misiva 
que le notificaba los 
detalles de su próxima misión, no 
podía imaginar toda la saga de 
despiadados seres a los que habría 
de enfrentarse. Por fortuna 
nuestro hombre no va a caminar 
solo, sino que se encuentra 
equipado con los últimos 
adelantos de la técnica 
armamentística: fusil 
ametrallador, ametralladora 
pesada y lanzallamas serán su 
equipamiento, que deberá ir 
recargando en su avance sin retorno. 

Para realizar con éxito la 
misión deberemos cruzar dos 
laberintos, la jungla, salir de una 
profunda garganta y llegar 
finalmente al centro de 
operaciones donde, por pocos 
segundos, tendrás la posibilidad de 
destruir la máquina que atenta 
contra el amable clima que 
siempre nos ha otorgado nuestro 
planeta Tierra. 


Desde el fondo de la garganta del cañen 
beremos ir ascendiendo con cuidado h< 
alcanzarla ama, donde destruiremos /•' 
Irada secreta a la factoría. Para que lt> 
censtón tenga éxito es necesario nocir 
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Los terribles Durrs, 
originarios del lejano 
planeta Suna, han invadido 
la Tierra con la intención 
de modificar su clima y 
convertirlo en un 
planeta helado. Grizor, 
un héroe de película que 
muy poco tiene que 
envidiar al mismísimo 
Rambo, será el encargado 
de hacer fracasar el 
diabólico plan alienígena. 

Pero antes de alcanzar 
la Planta de Proceso 
Atmosférico y destruirla, 
habrá de luchar con las 
temibles hordas 
extraterrestres, que 
intentarán destruirlo. 


Andrómeda 


'eromenle 
quidarle; 
I nuestro, 
•a mlsion- 
lasta des 
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D esde que se realizó el 
primer juego por 
ordenador, un tenis que 
funcionaba en la pantalla de un 
osciloscopio, muchos han sido 
los avances que han 
convulsionado el mundo del 
software de divertimento. 
Revolución tras revolución, el 
realismo y la calidad de estos 
productos han ¡do ascendiendo 
hasta alcanzar unos niveles de 
perfomance considerablemente 
elevados. 

En esta ocasión, han sido 
programadores españoles al 
mando de Paco Suárez, los 
encargados de sacudir 
nuevamente los cimientos del 
mundo de los videojuegos, con 
una aventura gráfica para jugar, 
ver y disfrutar que asombra a 
todo el que la mira y atrapa a 
todo el que la juega. 

El manejo de los personajes, a 
lo largo de toda la aventura, es 
inteligente y en ocasiones 
sorprendente por sus acciones 
inesperadas. En resumen, La 
abadía del crimen posee una 
calidad gráfica admirable, un 
diseño esmerado y sobre todo un 
derroche de imaginación 
inmensurable que avalan su 
seguro éxito. 




fin 


Hace frío 
en el scriptorium, 
me duele el pulgar. 
Dejo este texto, 
no sé para quién, 
este texto, 
que ya no sé de 
qué habla: stat 
rosa prístina 
nomine, nomina nuda 
tenemus. 


SIETE DÍAS 
DE PERIPECIAS 

PRIMER DÍA. 

NONA: donde se llega a la 
abadía y el Abad, después de 
dar la bienvenida a Guillermo y 
su novicio, les acompaña a sus 
celdas. 

VÍSPERAS: donde se asiste a 
los primeros oficios y Guillermo 
observa que uno de los monjes 
llega a la iglesia por detrás del 
altar. 

SEGUNDO DÍA. 

NOCHE: donde, mientras se 
duerme, alguien roba las lentes a 
Guillermo; que habría de 
recuperar varios días después. 
PRIMA: donde el Abad, muy 
contrariado, anuncia el 
descubrimiento del cadáver de 
uno de los mejores traductores 
de la abadía, Venancio. 
TERCIA: donde se tiene la 
oportunidad de visitar el edificio 
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Este mes... 




y llegar hasta el scriptorium, en 
donde el bibliotecario custodia la 
entrada a la biblioteca y su 
ayudante muestra la mesa de la 
segunda víctima. Sin embargo, 
vigila para que nadie curiosee en 
sus cosas. 

SEXTA: donde se asiste a la 
comida, como en días sucesivos, 
siempre a esta misma hora. • 
NONA: donde, en un alarde de 
habilidad, el joven discípulo de 
Guillermo logra quitar la llave al 
bibliotecario mientras éste le 
despista. Después se descubre el 
pasadizo secreto que comunica 
la capilla con la cocina. 

TERCER DÍA. 

NOCHE: donde muy a prisa y 
con suma precaución (para no 
ser sorprendidos por el Abad) se 
penetra en el edificio por la 
capilla, con la intención de 
investigar lo que el ayudante del 
bibliotecario no quería que se 
viera. Pero al llegar al 
scriptorium se descubre que un 
encapuchado ha cogido el libro; 
aunque no un manuscrito que 
había sobre la mesa que, de 
todos modos, Guillermo no 
puede leer sin sus lentes. 

PRIMA: donde el Abad anuncia 


A lo largo de la secuencia de fotos puede observarse el pasadizo secreto que une 

CELDA DEL ABAD 


LLAVE 


la desaparición del ayudante del 
bibliotecario. 

TERCIA: donde el Abad 
presenta a un venerable anciano 
que anuncia airadamente la 
presencia del Anticristo en la 
abadía. 

NONA: donde, sin nada 
interesante que hacer, se decide 
conocer mejor la abadía, y al 
llegar a la cocina el pequeño 
novicio encuentra una lámpara 
de aceite que les será 
indispensable para penetrar en el 
laberinto. 

CUARTO DÍA: 

NOCHE: donde se decide entrar 


en el laberinto, y aunque no se 
descubre nada interesante, 
empiezan a orientarse en él. 
PRIMA: donde el Abad, muy 
disgustado por la aparición del 
cadáver del desaparecido, delega 
la investigación en Bernardo 
Gui, que llegará esa misma 
mañana. Sin embargo, 
Guillermo decide proseguir la 
investigación por su cuenta. 
TERCIA: donde el padre 
herbolario desvela extraños 
descubrimientos en la autopsia 
del tercer cadáver. 

NONA: donde Bernardo Gui, 
con los poderes que el Abad le 


Moviendo a Adso obtendremos la llave. 

REFECTORIO 


Para volver a conseguir el pergamino deberemos entrar en la habitación del Abad. 
En ésta se encuentra la llave para finalizar la aventura. 


AMANECER 




Hay que colocarse en el lugar exacto Todas los noches, en la celda. Adso preguntará a Guillermo si quiere dormir o no, 
(ver foto), si no queremos que el Abad de ser positiva nuestra respuesta, comenzará directamente un nuevo día. 
nos eche una de sus broncas. 
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CUPON DE 
SUSCRIPCION 
AMSTRAD 
PERSONAL 

Suscríbase ahora a AMSTRAD 
PERSONAL y beneficíese de las 
ventajas de ser suscríptor: 
Recorte y envíe rápidamente el 
cupón de suscripción adjunto 
(No necesita franqueo). 


i CUPON DE 

NUMEROS 
i ATRASADOS Y 
L TAPAS DE 

AMSTRAD 

| PERSONAL 

I 

■ 


TARJETA DE 
SERVICIO AL 
LECTOR 


Cupón de Suscripción Amstrad PERSONAL 

Deseo suscribirme a la revista AMSTRAD PERSONAL por un año (12 números), al precio de 
3.150 pts. 


Nombre . Fecha de nacimiento 

Apellidos . . 

Domicilio . 

Localidad . Provincia . 

C Postal . Teléfono . 


(Para agilizar su envío, es importante que indique el código Postal) 

Formas de pago 

□ Talón bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A. n? . . 

□ Contra reembolso (supone 180 pts. más de gastos de envío y es válido sólo para España). 

□ Tarjeta de crédito n? □□□□ □□□□ □□□□ □□□□ 

(Sólo para pedidos superiores a 1.500 pts.) 

Visa j Master Card □ American Express □ 

Fecha de caducidad de la tarjeta . 

Nombre del titular (si es distinto) .. 

Fecha y firma 

(Si lo desea puede suscribirse por teléfono (91) 734 65 00) 


Cupón de números atrasados y tapas de Amstrad PERSONAL 

□ Deseo recibir en mi domicilio los siguientes números atrasados de AMSTRAD PERSONAL, al 
precio de 350 pts. cada uno. 

□ Deseo recibir en mi domicilio las tapas para conservar AMSTRAD PERSONAL, al precio de 850 
pts. (No necesita encuadernación). 


Nombre . Fecha de nacimiento 

Apellidos. 

Domicilio .... 

Localidad ... Provincia . 

C. Postal . Teléfono . 


(Para agilizar su envío, es importante que indique el código Postal) 
Formas de pago 

□ Talón bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A. n?. 

Tarjeta de crédito n? □□□□ [”!□□□ DUDO UÜUU 

(Sólo para pedidos superiores a 1.500 pts.) 

Visa □ Master Card [ 1 American Express □ 

Fecha de caducidad de la tarjeta ... 

Nombre del titular (si es distinto) . 

(Si pago con la tarjeta de crédito, recibiré un número más de regalo). 

Fecha y firma 


Tarjeta de servicio al lector 

Si desea recibir en su casa más información acerca de cualquier tema o temas de la revista que posean un número 
de referencia, indiquelo marcando dicho número en esta tarjeta. 

REVISTA Núm. 


Nombre . . Fecha de nacimiento 

Apellidos .;;. 

Domicilio . 

Localidad . Provincia . 

C. Postal . Teléfono . 


Software 

que 

usa 1 

nabitualmente . 
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No 

necesita 
sello. A 
franquear 
en destino 


HOBBY PR£SS,S.A. 

Apartado n? 8 F. D. 

28100 ALCOBENDAS (Madrid) 


No 

necesita 
sello. A 
franquear 
en destino 


HOBBY PRESS,S.A. 

Apartado n? 8 F.D. 

28100 ALCOBENDAS (Madrid) 


HOBBY PRESS, S.A. 

Apartado de Correos n? 232 
28080 Alcobendas (Madrid) 


HOBBY PBESS, para gente inquieta 
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CUPON DE 
PEDIDO 
DISCOS 
SERIE ORO 

Ahora tiene la 
oportunidad de 
poseer los programas 
de AMSTRAD 
SEMANAL en Disco 
a un precio muy 
asequible. Aproveche 
la ocasión y olvídese 
de teclear. 


CUPON DE 
NUMEROS 
ATRASA¬ 
DOS, TAPAS 
Y CINTAS 
AMSTRAD 
SEMANAL 

Aproveche la ocasión 
que le ofrecemos de 
completar y 
encuadernar sus 
colecciones de 
AMSTRAD 
SEMANAL a un 
precio único. 


TARJETA 

DE 

MERCADO 

COMUN 


Cupón de pedido Discos Serie Oro 

1 Deseo recibir en mi domicilio los discos que a continuación indico, al precio de 999 pts. cada uno. Cada disco 
contiene grabados los programas publicados por AMSTRAD SEMANAL durante cuatro números consecutivos. 
(1 al 4, 5 al 8, 9 al 12, etc.) Ultimo disco editado número 20. 

Números al . Números al 

Números al Números al 

l~1 Deseo recibir en mi domicilio el DISCO GRAFICOS que contiene los programas de gráficos publicados en 

AMSTRAD SEMANAL, al precio de 999 pts. 


Nombre 
Apellidos 
Domicilio 
Localidad 
C. Postal 


Fecha de nacimiento 


Provincia 

Teléfono 


(Para agilizar su envío, es importante que indique el código Postal) 
Formas de pago 

U Talón bancario adjunto a nombre de Hobby Press, S.A. 

d Giro Postal a nombre de Hobby Press, S.A. n?.. 

□ Tarjeta de crédito nf □□□□ HUniJ ÜÜIJL ) I II JUl J 
(Sólo para pedidos superiores a 1.500 pts.) 

Visa Ú Master Card U American Express L 

Fecha de caducidad de la tarjeta . 

Nombre del titular (si es distinto! . 

Fecha y firma 


Cupón de números atrasados, tapas y cintas Amstrad Semanal 

L Deseo recibir en mi domicilio los siguientes números atrasados de AMSTRAD SEMANAL, al precio OFERTA Especial 30% Descuento de 135 
pts. cada uno (1 al 991. Precio oferta del número 100: 245 pts. 


(Se encuentra agotado el n° 4) 

L Oeseo recibir en mi domicilio las tapas para conservar AMSTRAD SEMANAL, al precio OFERTA Especial de 600 pts. I No necesita encuadernación). 
Deseo recibir en mi domicilio los siguientes números AMSTRAD SEMANAL ESPECIAL, al precio OFERTA de 245 pis. 

Deseo recibir en mi domicilio las cintas que a continuación indico, al precio OFERTA Especial de 530 pts. cada una. Cada cinta lleva grabados 
los programas publicados por AMSTRAD SEMANAL durante cuatro números consecutivos (1 al 4, 5 al 8,9 al 12, etc I Ultima cinta editada número 20. 

Números . al .. Números . al . 

Números . al . Números .al . 


Nombre.. 

Apellidos . 

Domicilio .. 

Localidad . Provincia . 

C. Postal . Telefono . 

(Para agilizar su envío, es importante que indique el código Postal) 

Formas de pago 

L Talón bancario adiunto a nombre de Hobby Press, S.A. 

C Giro Postal a nombre de Hobby Press, S,A. n°. 

ü Tarjeta de crédito n? L¿Uuu lll MI . LJLL UULU 
(Sólo para pedidos superiores a 1.500 pts.) 

Visa U Master Card u American Express □ 

Fecha de caducidad de la tarjeta. 

Nombre del titular (si es distinto) . 


Fecha de nacimiento 


Fecha y firma 


Tarjeta de Mercado Común 


Con ¡dea de dar al lector un servicio más rápido y eficaz en nuestra sección de mercado común, 
proponemos que todos los anuncios y contactos se realicen a través de esta tarjeta, debidamente 
cumplimentada, en la que cada espacio recuadrado corresponde a una palabra. ¡No se olvide de in¬ 
cluir sus datos personales dentro del espacio de la tarjeta! 


□ COMPRO 


□ VENDO 


□ CAMBIO 


□ BOLSA DE TRABAJO 
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No 

necesita 
sello. A 
franquear 
en destino 




HOBBY PRESS, S.A. 

Apartado n? 8 F. D. 

28100 ALCOBENDAS (Madrid) 



No 

necesita 
sello. A 
franquear 
en destino 



HOBBY PRESS,S.A. 

Apartado n? 8 FD. 

28100 ALCOBENDAS (Madrid) 



HOBBY PBESS,S.A. 

Apartado de Correos n? 232 
28080 Alcobendas (Madrid) 



HOBBY PBESS f pora gente inquieta 
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ÍGN CTRL+F? 


PODEMOS ARCHIVAR 
HASTA 9 SITUACIONES 
QUE PODRÁN SER 
RECUPERADAS 
CON SHIFT+F?. 

ha otorgado, confisca el 
manuscrito a Guillermo y se lo 
entrega a aquél, quien lo 
guardará en su celda. 

QUINTO DÍA. 

NOCHE: donde debido, sin 
duda, a la gracia divina, 


Guillermo puede coger la llave 
del Abad, que éste había 
olvidado sobre el altar. 

PRIMA: donde antes de 
empezar el oficio, el padre 
herbolario nos revela que ha 
descubierto un extraño libro en 
su celda, dejado, sin duda por el 
encapuchado la primera noche. 
TERCIA: donde, mientras el 
Abad entretiene a Guillermo, el 
bibliotecario, que había 
escuchado la revelación del 
padre herbolario, le sigue hasta 
su celda y le asesina. Coge el 
libro y lo encierra con su propia 
llave. 


NONA: donde el Abad, al no 
haber asistido a la comida el 
padre herbolario, pide a 
Guillermo que le acompañe a 
buscarle; así se descubre que ha 
sido asesinado y encerrado en su 
propia celda. Mientras tanto, el 
bibliotecario aprovecha para 
devolver el famoso libro a la 
habitación secreta de la 
biblioteca. 

VÍSPERAS: donde el 
bibliotecario, desoyendo las 
advertencias sobre el libro lo 
hojea. Moribundo regresa a la 
iglesia, pero pierde por el 
camino las lentes y la llave 
robadas. Al llegar a los oficios, 
dice unas extrañas palabras y 
muere. 

SEXTO DÍA. 

NOCHE: donde se llega hasta el 
laberinto para recuperar las 
lentes en el torreón noroeste y la 
llave de la celda del padre 
herbolario que está sobre el 
escritorio del bibliotecario. 
TERCIA: donde se entra en la 
celda del padre herbolario y se 
consiguen sus guantes; que, 
como bien había intuido 
Guillermo, le iban a hacer falta 
más adelante, 

NONA: donde con mucha 
precaución se penetra en la celda 
del Abad y se recupera el 
manuscrito que da clave de 
cómo atravesar el espejo para 
penetrar en la habitación secreta. 
SÉPTIMO DÍA. 

NOCHE: donde se llega por fin 
hasta la habitación secreta, 
donde se encuentra el anciano 
ciego que hace unas 
sorprendentes revelaciones que 
esdarecen todo d enigma. Pero 
por culpa de la impaciencia, 
todo termina dramáticamente. 


ÚLTIMA ESCENA 



Última escena del juego, donde, por 
culpa de la precipitación, sucederá la 
tragedia. 


ADIZO 



la cocina, tras la chimenea, con una habitación de la parte trasera de la capilla. 


CON VENANCIO 




LABERINTO 



V 

" . 

% m *** 

P 

u. 


i _ 


Venancio relata algunos extraños su¬ 
cesos que turban la abadía. 


En el laberinto es muy difícil moverse. 
¡Ojo! El aceite irá acabándose. 


HAB. DEL ESPEJO 


HAB. SECRETA 




N W# % * * . ^ * 

Sta 


. 


Podremos entrar en la habitación se¬ 
creta pulsando las dos teclas que nos 
marca el pergamino. 



La astucia de Jorae intentará burlarnos. 
Habrá que seguirle corriendo hasta dar¬ 
le alcance. 
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De un tiempo a esta parte 
una nueva moda comienza 
a implantarse en el 
mundo de los juegos, 
programas que 
permiten al jugador 
aficionado realizarse 
sus propios juegos, de 
forma limpia, rápida y 
sencilla. Marble Madness 
Set Construction, el juego 


que este mes pasa por 
estas páginas, es una 
prueba de ello. 


SET CONSTRUCTION 


N o hace mucho tiempo llegaba 
a España un juego, de 
nombre Marble Madness, 
cuyo objetivo fundamental era 
dirigir una bola a lo largo de una 
vasta superficie geométrica. 
Subidas, bajadas, pozos y gusanos 
comilones eran algunas de las 
duras pruebas que, pantalla a 
pantalla, debían ir siendo 
superadas hasta alcanzar la 
codiciada meta. 

Este mes, Marble Madness 
vuelve a ser noticia por la 
aparición de una nueva versión. 

La nueva versión incorpora un 
potente editor, que nos permitirá 
diseñar nuestras propias pistas, 
por las que después, nosotros o 
nuestros amigos, tendremos que 
luchar para que la bola no acabe 
en el fondo de un precipicio. 

Aparte del editor, el programa 
dispone también del antiguo 
juego, que nos permitirá o bien 
jugarlo sin modificaciones, o bien 
modificarlo y después jugar con la 
nueva estructura de pantallas. 

El diseñador deja unos 3.800 
bytes libres, para uso y disfrute de 
la imaginación del programador. 
Teniendo en cuenta que una 
pantalla, dependiendo de su 
complejidad, ocupa entre 150 y 
350 bytes, nos da un total de unas 
15 pantallas distintas por juego 
completo diseñado. No obstante, 
este número puede aumentar 
considerablemente si no incluimos 
vastas extensiones y nos limitamos 
a estrechos caminos. 

El editor manipula un total de 



'na vez borrada la pantalla con Clear, 
podemos empezar a diseñar nuestra pis¬ 
ta. 


n todo momento podremos ver el resul¬ 
tado escogiendo el Test. 



A medida que nos familiaricemos con el 
programa, podremos realizar diseños 
más complicados. 


Mediante la opción Test podremos me¬ 
dir, a pie de pista, la dificultad de la 
pantalla actual. 


44 AMSTRAD Personal 








































MENU 1 


Una escena con 
diversas 
puntuaciones 
para varias 
zonas de la 
pantalla. Un 
aliciente más 
para el 
jugador. 


MENU 2 


Los dos menús a los que se puede acce¬ 
der desde el editor, con todas sus opcio 
nes. 


Pantalla con 
dos bolas 
negras y un 
mazo. Cuando 
el programa 
esté en 

ejecución, estos 

elementos 

cobran vida, 

volviéndose 

bastante 

agresivos. 


ocho figuras distintas, que se 
ensamblan entre sí de forma que 
permiten realizar complicadas 
figuras a modo de valles, caminos 
y mesetas. Una vez finalizada una 
pantalla, basta con seleccionar 
Screen, para obtener 
inmediatamente, siempre y cuando 
quede memoria libre, la pantalla 
siguiente. 

Como aderezo al juego, se 
incluyen toda una serie de peligros 
y alimañas que podremos ir 
distribuyendo por el plano, lo que 
añadirá emoción y dificultad a 
nuestro juego. Entre estos objetos 
podemos encontrar medusas 
asesinas, pegajosos gusanos, aros 
desintegradores, bolas 
desplazadoras que intentarán 
arrojarnos al precipicio, mazos 
agresivos, y un largo etcétera, 
todo ello perfectamente realizado 
para un mayor realce del juego. 


Los pliegues y 
curvas de la 
superficie están 
bastante 
logrados y 
pueden usarse 
para ayudar o 
dificultar el 
paso de la 
bola. 


Lo más importante 
del diseñador es 
su sencillez de 
manejo. Con tan solo 
unos minutos de 
prueba, podremos 
manejarlo con un 
aprovechamiento del 
cien por cíen. 
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Masters 

DEL UNIVERSO 
La venganza 
de los Dioses 


Irte 

M,: 31418 04 

Gato: 875 

Disco: Nt hoy venión 


Ref. 9 



A la sombra del infame 
Skeletor y de Heeman «el 
mazas», se desenvuelve es¬ 
ta excelente implementa- 
ción de una imaginativa, y 
rentable, película. Basada 
en los no menos conocidos 
juguetes de la tele, cuya 
inacabable colección sin du¬ 
da se ha erigido en la pesa¬ 
dilla favorita del bolsillo de 
más de un padre, /Vlasters 
del Universo es un juego 
muy bien hecho. Adictivo, 
buen sonido, agradables 
gráficos y un algo menos 
xenofóbico que el consabi¬ 
do aniquilar inmundos alie¬ 
nígenas. 

La historia del juego sigue 
muy de cerca la que ya vi¬ 
mos en la gran pantalla. 
Skeletor ha conquistado el 
castillo de Greysculle, a trai¬ 
ción, claro. Heeman y sus 
bien musculados amigos 
apenas han podido escapar 



de sus garras metiéndose a 
la desesperada en un vérti¬ 
ce temporal, el cual les de¬ 
posita suavemente en un 
mundo desconocido y primi¬ 
tivo: la Tierra. El asunto es¬ 
triba en volver a Greysculle, 
antes de que Skeletor se ha¬ 
ga con el mando total del 
Universo. Para ello, es ne¬ 
cesario encontrar las claves 
que activarán la Clave Cós¬ 
mica, recorriendo la ciu¬ 
dad. Heeman encontrará 
sostén y alivio, además de 
información, en sus dos 
compañeros, y deberá ba¬ 
tirse en toda regla con Jos 
dos principales matosos. 


Originalidad 

eieieieio 

Gráfico* 

tETUD El El □ 

Movimiento 

Ersrns'OTD 

Sonido 

El El El O □ 

Dificultad 

0TZTErQXü 

Adicción 

EHZHQQQ 


■■■■■■■ 


SUPER HANG-ON 

Como 

una moto 


Proeá, i i 

hh 274 23 08 

Cinto'. 380 

Disto-. 2.395 


Ref. 10 


De la mano de..., no, eso 
no. Está muy visto. A ver 
así: Electric Dreams, esa 
compañía de nombre tan 
poético, nos tiene acostum¬ 
brados a software con de¬ 
nominación de origen. De 
clase. Super Hang-On está 
precisamente en esta línea. 



Aunque la idea en sí misma 
no es muy original que di¬ 
gamos, carreras de motos a 
todo gas, no se puede ne¬ 
gar que este tipo de histo¬ 
rias poseen un atractivo es¬ 
pecial, decantándose hacia 
ia adicción más feroz sazo¬ 
nada con una dosis de sa¬ 
ludable «pique». Resulta di¬ 
fícil impedir que el sonido de 
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la moto y la emoción de las 
curvas no se nos metan en 
la sangre haciéndonos olvi¬ 
dar que no se trata más que 
de una logradísima imita¬ 
ción. Porque este juego vie¬ 
ne directamente del de las 
«máquinas», y tiene 4 nive¬ 
les distintos de dificultad. 
Súmesele a ello que los «mo- 
tards» verdaderamente ex¬ 
pertos tienen en cartera la 
posibilidad de usar motos 
turbo a través de 18 estados 
sucesivos. 


mnm f 
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Originalidad 

ETE!□□□ 

Gráfico! 

El El El El Q 

Movimiento 

E) ÍZ) GD Q Q 

Sonido 

El El El Q Q 

Dificultad 

El El El □ Q 

Adicción 

El El El El El 



Madballs 
Posa 
la bola 


irte 

MI,: 31418 04 

Cuta: 875 

Disto: Na hoy versión 

1 Ref. 11 I 


En Orb, planeta lejano de 
la galaxia de Mulé Jos, la 
democracia no se entiende 
como en nuestro planeta 
Tierra. Allí para llegar al 
parlamento habrá que ju¬ 
gar largas horas de partido, 
dondeTos componentes de¬ 
berán convencer al resto es¬ 
trellándolos con ira hs por¬ 
terías. 



Por desgracia, los demás 
también intentarán «con¬ 
vencerte», con lo que no te 
extrañes si acabas con tus 
huesos contra una de las 
porterías. 

Existen un grupo especial 
de pelotas, las pelotas fun¬ 
cionarios, que no es lo mis¬ 
mo que las funcionarías pe¬ 
lotas, contra las que todo el 
mundo actúa en un ataque 
histérico de odio generali¬ 
zado. Atácalas, pues dan 
muchos puntos. 

Si alguna vez llegas a ser 
el Madball número 1, enho¬ 
rabuena, porque yo jamás 
lo he logrado. 



Originalidad 


El El E) El [á 


Gráfico* 

El 21 El O O 

Movimiento 

El El E) Q Q 

Sonido 

El El El El El 

Dificultad 

I El El El au 


M 


i 



— 


n 

I* 

97T 




1 -’TTU 

□ 

_ 

_ i 



k 





















































































































Olu and ussa 

Lotura total 


Oro Soft 

MI.: 246 38 02 

Cinto: 699 

Disto: No hoy verswn 


Ref. 12 | 



Este juego pertenece a la 
«serie plata» de Firebird, 
léase software barato. No 
obstante, dado su escaso 
precio, estos productos sor¬ 
prenden por su calidad. OIH 
& Lissa, por oscuras razo¬ 
nes, son los más íntimos 
amigos de un bienintencio¬ 
nado fantasma, anclado de 
por vida a las sólidas rocas 
de un castillo, sito en la par¬ 
te más hermosa y sugeren- 
te de los Highlands, las ver¬ 
des y bellísimas Tierras Al¬ 
tas de Escocia. La seudovi- 
da del espíritu se ve amena¬ 
zada por la más prosaica y 
destructiva fuerza de todos 
los tiempos: el dinero. Un 
multi-multimillonario, llama¬ 
do Eugene Port-Cullis III, 
ha dado a luz, en su pér¬ 
fida cabeza de tiburón de 
Wall Street, a la ominosa 
idea de desmontar piedra a 
piedra el castillo y llevárse¬ 
lo a a su tierra natal: Amé¬ 
rica. Evidentemente, a nin¬ 
gún europeo se le pasaría 
por la imaginación seme¬ 
jante atrocidad. El caso es 
que Sir Humphrey, el fan¬ 
tasma, odia el «American 


way of life», y a fuer de 
buen inglés, está decidido a 
estropearle la jugada al mi¬ 
llonario. Para ello, Olli y Lis¬ 
sa, sus compinches, deben 
encontrar en el castillo los 
ocho ingredientes que lo 
van a permitir. 





Originalidad 

CZJ uü EZj lj o 

Gráficos 

El El £3 □ □ 

Movimiento 

El El □ □ □ 

Sonido 

El El □ Q □ 

Dificultad 

El El El O □ 

Adicción 

[2 E) El El U 



al mando de un crucero de 
combate, y cuenta con el 
auxilio de un ordenador que 
nos avisa de la presencia de 
unidades enemigas, de la 
trayectoria de sus disparos, 
así como de las puertas al 
hiperespacio que tenemos 
abiertas para desplazarnos 
a otra zona. 


Dark star 

A mil años 
luz 





Originalidad 

— srznzrarQ 

Dro Soft 

M.: 246 38 02 

Gráfico» 

Et rvq rfpyrn 

Cinto: 699 

Disto: No hoy versión 

Movimiento 

ÍZTEl El Q Q 

Sonido 

El El 13 Q Q 

17"/» Í77\ 1 tXfc r k 1 k 


Ref. 13 


Otra producción de Fire¬ 
bird, dentro de su «línea de 
plata» de software barato. 
Como de costumbre, la ca¬ 
lidad es superior a lo espe¬ 
rado en todo aquello que es 
básico en un juego: adic¬ 



Star wars 

La lucha 
continúa 


írtw TeH.: 31418 04 

Cinta: 875 ptos. Disco: No hoy versión 


Ref. 14 


ción, sonido y gráficos. De 
nuevo, en plan criticón, la 
idea del juego no es excesi¬ 
vamente original. La acción 
sucede en el típico marco 
galáctico, con naves, peli¬ 
gros, etc. Sin embargo, no 
se trata de un juego más. 
Existen ciertos toques nove¬ 
dosos. La historia es, a 
grandes rasgos, así: la ga¬ 
laxia Estrella Oscura está di¬ 
vidida en 16 sectores. En 
ellos se desarrolla una feroz 
batalla. Uno se encuentra 


Un juego con este título 
no necesita presentación. 
Todo el mundo ha visto la 
película o se la han conta¬ 
do veinte veces. Esta es la 
versión oficial para ordena¬ 


dores domésticos de uno de 
los arcades más famosos 
para las máquinas recreati¬ 
vas. Como la anterior, esta 
versión está muy cuidada en 
su aspecto gráfico, con una 
acción trepidante. 

Lo que hay que hacer es 
eliminar a la Estrella de la 



Muerte, guiando al perso¬ 
naje, Luke Skywaiker, y a su 
Ala X a través de sucesivas 
oleadas de ataque del ene¬ 
migo. Cada uno de los ata¬ 
ques consta de tres secuen¬ 
cias. En la primera nuestro 
héroe luchará en el espacio 
exterior. En la segunda hay 
que sobrevivir a las terrorí¬ 
ficas torres de rayos láser. 
Finalmente, en la tercera 
hay que pelear en las trin¬ 
cheras y dar con la salida 
de gases. Así destruirás a la 
Estrella de la Muerte. 

¡Buena suerte y que la 
fuerza te acompañe! 



Originalidad 

ETCJ t JLTLl 

Gráfico» 

El El El El □ 

Movimiento 

El El El El □ 

Sonido 

El El El Q Q 

Dificultad 

El El El Q Q 

Adicción 

El El El El El 
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Phanton club 

Hucha contra 
el mal 


Erbt 

fe».: 314IS 04 

Goto: (75 

Diste: No hoy rasión 


I Ref. 16 I 


Los componentes del 
Phanton Club son unos indi¬ 
viduos bastante especiales: 
están dotados de poderes 
sobrenaturales. Tú, uno de 
sus miembros, deberás en¬ 
frentarte a tus antiguos com¬ 
pañeros, que han sido con¬ 
vencidos por el ¡efe para 
poner sus poderes al servi¬ 
cio del mal. 

Para conseguir que la ins¬ 
titución vuelva a estar al 
servicio del bien, deberás 
atravesar 550 salas y com¬ 
pletar diversas tareas, todas 
ellas peligrosas, sobre todo 
teniendo en cuenta que tus 
poderes sólo se regenera¬ 
rán cuatro veces, para aca¬ 
bar en un enfrentamiento 
directo con el ¡efe del club. 

Ten mucho cuidado con 
las trampas de las habita¬ 
ciones. Al destruir la esfera 



con la Policía, al parecer 
ellos te tratan bien, y se pre¬ 
guntan de qué tienes miedo. 
Vaga libre por la ciudad, 
pero, sobre todo, no lo ol¬ 
vides: ¡eres un lobo! 


Originalidad 

|£TED i£l □ 

Gráficos 

Q ETK¡rt¿t □ 

Movimiento 

tlil vj .¿1 J l 

Sonido 

E3 El ED □ Ü 

Dificultad 

171 Mt 171 MI r~| 

Adicción 

uii ZJ El ZJ l 


giratoria obtendrás una 
gran cantidad de puntos ex¬ 
tra; sin embargo, ten en 
cuenta que sólo podrás ha¬ 
cerlo una vez. 

Debido a la complejidad 
de las situaciones, los crea¬ 
dores del juego han previs¬ 
to la posibilidad de graba¬ 
do y carga. Cuando veas en 
alguna sala un tubo flotan¬ 
do sobre una columna, dis¬ 
párale y podrás grabarlo 
en ese punto. 

Tanto el aspecto gráfico 
como el movimiento están 
bien logrados. Pero lo más 
destacado, sin duda, es la 
dificultad. 
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Originalidad 

El El El Q Q 

Gráficos 

EUDEIEIQ 

Movimiento 

171 El El | r~y 

Sonido 

El El El Q O 

Dificultad 

EJ E) E) □ O 

Adicción 

0 0 0QD 
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Wherewolves 

Un lúántropo 
suelto 


Dro Soft 

Mf.: 246 38 02 

Cute: 875 

Diste: Ne hoy rasión 


I Ref. 18 I 


Paseas solo pensando en 
tus asuntos, cuando de 
pronto sientes que tu piel 
se... Miras hacia abajo y 
observas que... el pelo de tu 
cuerpo está creciendo de 
manera alarmante. ¡Por to¬ 
das partes! La cabeza te da 


vueltas, sientes la irresistible 
necesidad de... ¡WAUH!... 
El ansia de sangre ha de ser 
satisfecha. No tienes elec¬ 
ción. En lo más profundo de 
tu mente evocas la maldi¬ 
ción que cayó sobre ti hace 
mucho tiempo, cuando una 
arrogante familia de mise¬ 
rables quiso quitarte de en¬ 
medio. No puedes razonar 
por más tiempo. Empiezas a 
verlo todo rojo... La única 
forma de librarte del hechi¬ 
zo es... ¡MATAR! 

Por supuesto, ni siquiera 
en las calles de Londres es¬ 
tá bien visto eso de corre¬ 
tear alrededor de la gente 
haciendo el salvaje, ni tra¬ 
tándose de los miserables 
de las calles. 

Las cruces parpadeantes 
te avisarán cuando uno de 
estos vagabundos se en¬ 
cuentre cerca. Recoge las 
ocho cruces y lo habrás con¬ 
seguido. 

Te encuentras discutiendo 


Ik+ 

Más karate 


?r«in, 5.8. 

Te».: 276 22 08 

Grito: 880 

Disto: 2.395 

1 Ref. 17 | 
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Una nueva versión de los 
architratados juegos de ar¬ 
tes marciales, que presenta 
la novedad de que tendre¬ 
mos en pantalla un número 
variable de adversarios que 
no sólo pelearán contra ti, 
sino también entre ellos. Al 
final de la lucha habrá un 
viejo sabio, harto entende¬ 
dor de este tipo de luchas, 
que evaluará el comporta¬ 
miento de cada uno de los 
componentes, premiando a 
los buenos luchadores y eli¬ 
minando a los malos. 



La mejor técnica para 
conseguir una buena pun¬ 
tuación es evitar la lucha. 

No obstante, si nos hace¬ 
mos demasiado los huidizos 
no puntuaremos y seremos 
eliminados sin compasión. 

Los luchadores y el entor¬ 
no están bastante logrados, 
con un nivel gráfico acepta¬ 
ble, un movimiento rápido 
y considerablemente real. 


Originalidad 

[Q E) CO El Q 

Gráfico* 

El El El Q C) 

Movimiento 

QOWSQ 

Sonido 

EThaupa 

Dificultad 

ejejUJlJU 

Adicción 

e) snznzra 



Thunder cats 

El tener ojo 


Erbe 

fe».: 3141304 

Cinta: 875 

Disco; No boy versión | 



Trap DOOR 
Un monstruo 
muy simpático 


Originalidad 

El El El 2] !l 

Gráfico* 

EíizrizrD □ 

Movimiento 

El El üí El El 

Sonido 

(El 5ü uJTjlJ 

Dificultad 

SO (ZTEJlSXJ 

Adicción 

El El El El El 




1 Ref. 19 | 

Aquí la cosa va de encon¬ 
trar ojos. Elite nos viene con 
una creación de la calidad 
esperada, pero sorprenden 
sus gráficos y la originali¬ 
dad del guión del juego. Re¬ 
sulta muy adictivo y «pican¬ 
te», y el sonido es bueno. Fí¬ 
jense: durante un raid lleva¬ 
do a cabo en cierto lugar 
que ya descubrirán, agen¬ 
tes del diabólico Mumm-Ra, 
armando un considerable 
estropicio, consiguieron ro¬ 
bar un artefacto mágico vi¬ 
tal: el ojo de Thundera. To¬ 
da la acción de este fasci- 


System 4 

Te».: 450 44 12 

Goto; 875 

Disco: 1.950 


Los aficionados a los per¬ 
sonajes de fantasía van a 
disfrutar con este juego, en 
el que el protagonista prin¬ 
cipal es Berk, una mole azu¬ 
lada que recuerda al famo¬ 
so monstruo de las galletas. 
Acompañando a éste, ma¬ 
nejaremos también a Drutt, 
una simpática rana que sa¬ 
cará en más de una ocasión 
al patoso monstruo de cons¬ 
tantes problemas. El mons¬ 
truo, a cambio, ayudará 
también a la rana cogién¬ 
dola en su regazo y cruzán¬ 
dola por precipicios y cu¬ 
briéndola del ataque de ali¬ 
mañas. 

El objetivo es bajar hasta 
la más profunda profundi¬ 
dad de las profundidades y 
rescatar a Boni. 

El juego sorprende grata¬ 
mente por el tamaño de sus 
sprites y por lo logrado de 
movimiento, 
ello en un té¬ 
trico ambiente 
cargado de ara¬ 
ñas, vampiros y 
venenos fulminan- 
que Berk y 
Drutt deberán es¬ 
quivar constante¬ 
mente. 


nante programa gira alre¬ 
dedor de su recuperación y 
de las increíbles vicisitudes 
que los protagonistas deben 
atravesar para conseguirlo. 


Originalidad 

O E) G) C3 LJ 

Gráfico* 

auuno 

Movimiento 

C3 E) El El El 

Sonido 

tnrnrnnn 

Dificultad 

El El El Q El 

Adioción 

EJ El LlJ EJ CJ 




YOGI BEAR 
¿Dónde está 
Boo-Boo? 


System 4 

MI.: 450 44 12 

Goto: 875 

Disco: 1.950 

1 Ref. 21 | 1 


Las aventuras del popular 
personaje de los dibujos 
animados han sido creadas 
en un juego lleno de acción, 
en el que se requiere mucha 
habilidad para alcanzar el 
objetivo: salvar a Boo-Boo, 
el insepara ble compañero 
de Yogi, de las garras de un 
malvado cazador, a través 
de unos gráficos agrada¬ 
bles y llenos de color. 



Originalidad 

ixJejMeTU 

Gráficos 

El El El El □ 

Movimiento 

El El (¿TU U 

Sonido 

El El El El El 

Dificultad 

El El El El El 

Adicción 

El El El El El 
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Systea 4 Telf.-. 450 44 12 

Grito: 8/5 Disai: 1.950 
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Chamonix 

CHALLENGE 
A 2.000 m 

de altura 


dará a la lucha mucha más 
emoción y realismo. 

El ¡uego está realizado en 
técnica tridimensional, en 
modo 0, con unos gráficos 
y un movimiento bastante 
correctos. 


Originalidad 

l~71171 ÍVI fy) l~y) 

Gráfico! 

0 0 0 El □ 

Movimiento 

aaaaü 

Sonido 

00000 

Dificultad 

GZÍT2 0 0 0 

Adicción 

0 0 0 0 0 


I Ref. | 

Lo mejor del programa es 
sin duda su originalidad, 
tanto en su realización co¬ 
mo en su temática. 

El objetivo del ¡uego es al¬ 
canzar la cumbre de una 
montaña, a través de una 
ruta previamente escogida. 

La simulación del ¡uego 
está perfectamente conse¬ 
guida, contemplando desde 
el peso y material que con¬ 
tendrá nuestra mochila, 
hasta la estación del año en 
la que queremos disfrutar 
de la escalada; evidente¬ 
mente, la estación invernal 
será la más peligrosa. 

Otro de los importantes 
factores que hay que con¬ 
trolar es la hora de salida, 
pues puede resultar muy pe¬ 
ligroso que nos alcance la 
noche en plena escalada. 

El movimiento del escala¬ 
dor es aceptable, y en as¬ 
censión vertical los movi¬ 
mientos del ¡oystick deben 
ser rítmicos y perfectamen¬ 
te sincronizados 


si no queremos 
acabar con 
nuestros huesos 
en el fondo de 


una sima. 


Rock & wrestie 

Música y golpes 


Originalidad _ El [y 7 ! I~v1 (_J ÍH 

Grifieoi El E3 G3~Q'Q 

Movimiento _ É) El El El El 

Sonido _ 0 53 E l Q □ 

Dificultad Í>/1 \\/\ E) 

MKtitn 0 0~0 □ Q 


Oro Soft IbH.: 246 38 02 
Gnto: 699 Dita: No hoy versión 


I Ref. 23 I 

Nuevamente podemos me¬ 
ternos en un cuadrilátero 
para medir nuestros puños, 
en esta ocasión con la flor 
y nata de la lucha libre. To¬ 
do vale, llaves, patadas y 
saltos contra el pecho no 
son nada comparados con 
lo que nuestro oponente, un 
gordo fanfarrón, va a inten¬ 
tar hacer con nuestro cuer¬ 
po. 

Moverse rápidamente, 
atacando con dureza en 
ocasiones puntuales, es fun¬ 
damental para que nuestro 
enemigo no nos atrape y 
nos convierta en papilla de 
frutas. 

También existe la posibi¬ 
lidad de luchar contra un 
compañero de juego, lo que 


720 GRADOS 
Piruetas 
en monopatín 


Eriie y.: 31418 04 

Gula: 8/5 Diste: He hoy versee 


I Ref. 24 | 

El juego consiste en con¬ 
trolar un patinete, mientras 


■ 

■ 


se realizan las acrobacias 
necesarias para puntuar y 
poder entrar en los parques 
de patinaje. La más difícil de 
conseguir, y lo que más pun¬ 
túa, es el giro de 720 gra¬ 
dos, de ahí el nombre de es¬ 
te «cansado» ¡uego. 

Una vez en el parque, pue¬ 
des competir y ganar meda¬ 
llas y dinero. Este último lo 
podrás utilizar en las tiendas 
para comprar un equipo me¬ 
jor del que tenías en el mo¬ 
mento de comenzar el ¡ue¬ 
go (monopatín, zapatillas, 
protectores, etc.). 

Si no consigues entrar en 




un parque en el tiempo in¬ 
dicado, serás perseguido 
por unas abejas muy espe¬ 
ciales, ya que se irán ha¬ 
ciendo más peligrosas con 
el paso del tiempo. Otro de 
los peligros a evitar es el 
contacto con cualquiera de 
los personajes que apare¬ 
cen en la pantalla. 

Una de sus características 
más destacables es que en 
la cara B del cassette hay 
una grabación con la músi¬ 
ca qriginal de la máquina 
recreativa. Una vez carga¬ 
do el juego, re bobina has¬ 
ta el comienzo y pon la mú¬ 
sica. Podrás jugar en tu or¬ 
denador con la música de 
una máquina recreativa. 


Originalidad 

0 0 0 0 0 

Gráficos 
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Movimiento 

0 0 0 0 0 

Sonido 

00000 
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Galactic games 

100 metros lisos 


Piwin, S.A. 

y. ; m 22 08 

Cuto; 880 

Disco: 2.395 


I Ref. 25 I 


Hasta ahora, muchos son 
los programas olímpicos y 


do agradable de presen¬ 
ciar; pero, sobre todo, y sin 
llegar a ser ninguna innova¬ 
ción entre los videogames, 
un juego divertido. 




deportivos que han pasado 
por las pantallas de los 
CPC. En Galactic Games, la 
contienda se desarrolla a 
cientos de miles de años luz 
de nuestro sistema solar, en 
un pequeño planeta plaga¬ 
do de simpáticos habitantes 
que se disputarán todas y 
cada una de las pruebas. 

Las distintas pruebas son: 

— 100 metros lisos. 

— Hockey espacial. 

— Judo. 

— Lanzamiento de cabe¬ 
zas. 

Y la última y gran prueba: 

— El maratón metamór- 
fico. 

El movimiento de los per¬ 
sonajes, sobre todo de los 
gusanoides, es bastante 
acertado y cómico, y a pe¬ 
sar de ser un juego de los 
que hay que insistir con el 
¡oystick en izquierda, dere¬ 
cha, izquierda, derecha, iz¬ 
quierda..., al basarle más 
en sincronismo de movi¬ 
miento y ritmo no resulta 
cansino y monótono como 
los que antaño insistían en 
esta línea. 

En resumen, un juego di¬ 
vertido, sin muchas preten¬ 
siones, con un grafismo bas¬ 
tante acabado y un colori- 


Originalidad lj¿) Cj L_) 

Gráficos 
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Gaunlet II 

Mano a mano 
con el mal 


Eribe 

y.-. 31418 04 

Cuto; 875 

Disto: No boy versión 


l-Ref. 26 I ; 


UmcTnireva aventura de 
estos cuatro guerreros, 
Thyra, Merlin, Questor y 
Thor, que vuelven a la lu¬ 
cha. 

Para los que no conozcan 
o no recuerden el Gaunlet 
I, sólo decirles que se trata 
de un juego en el que, co¬ 
mo en tantos otros, debe¬ 
remos enfrentarnos a to¬ 
da una troupe de fantas¬ 
mas, monstruos y superma- 
gos, que intentarán por to¬ 



dos los medios acabar con 
nuestras vidas. Lo más ori¬ 
ginal del juego, y lo que le 
hace verdaderamente atrac¬ 
tivo, se encuentra en la 
posibilidad de jugar dos 
personas simultáneamente 
pero que en esta ocasión, 
para variar, se encuentran 
en el mismo bando. Deben 
apoyarse mutuamente, dis¬ 
parando conjuntamente 
y cubriéndose en el avam 
ce. 

Pocas veces nos encontra¬ 
mos con un Arcade en el 
que la cooperación sea la 
clave del éxito. No basta 
tan sólo con apretar indis¬ 
criminadamente el botón de 
disparo del ¡oystick. Es esen¬ 
cial pararse a pensar un po¬ 
co en la estrategia conjun¬ 
ta a seguir. 



Originalidad 
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Dear or glory 

los enemigos 
se aproximan 


Dro Soft 

Tei: 246 38 02 

Cinto*. 699 

Disco*. No boy versión 


I Raf.,28 I 



A través de la 
negrura inson¬ 
dable del espa¬ 
cio, una increí¬ 
ble flota se 
aproxima al pa¬ 
cífico y aislado 
planeta de New 
Stratfor. El des¬ 
cubrimiento se debe a la 
oportuna intervención de 
los sistemas de vigilancia y 
radares de la pacífica colo¬ 
nia, que, confiada, no espe¬ 
ra el inminente ataque y en¬ 
vía un simple carguero pa¬ 
ra averiguar cuáles son los 
problemas del radar. 

El comandante de escua¬ 
drilla del centro de demoli¬ 
ciones de los asteroides ve¬ 
cinos, comprueba, con ho¬ 
rror, los inutilizados radares 
y la aproximación de las flo¬ 
tas enemigas. 

Como una tormenta de 
meteoros, caen sobre él, 
androides luchadores que 
acribillan sus sistemas de 
defensa con misiles térmi¬ 
cos. 

Lleno de furia, se lanza 
contra la nave base rom¬ 
piendo sus propulsores de 
Plasma... ¡Gloria o muerte!, 
exclama triunfal con su na¬ 
ve dentro del corazón ene¬ 
migo. 

Con este arcade la acción 
está asegurada, sólo hay 
que empuñar el ¡oystick o, 
si lo prefieres, controlar tu 
nave desde los controles del 
teclado. 

Los gráficos y colorido son 
agradables y están acom¬ 
pañados de un buen movi¬ 
miento. 
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SIN DUDA 


Acerca 

del Mapeador 

Mi petición se refiere a la 
aclaración de algunas dudas sobre 
el programa Basic aparecido en 
el número 4 de vuestra revista y 
correspondiente a la técnica de 
mapeado de pantallas, en el cual 
surgen sentencias como: Graphics 
Pen, Olear Input; o instrucciones 
con más parámetros de lo normal, 
DRAWR 0,3O,i,l, cuando creo, la 
sentencia DRAWR sólo contiene 
tres parámetros. 

A todo esto sólo le veo una 
solución, y es que, siendo mi 
ordenador un CPC 464, tal vez no 
incluya estas instrucciones y sea 
por eso que no las admite como 
buenas. 

Antonio Sola Serrano 

Los comandos a los que usted 
hace referencia son privativos del 
6128. Por tanto, si su ordenador 
es un 464, no le va a funcionar 
sin cambios. En el artículo del 
que nos habla, lamentablemente 
se nos «despistó» el indicar que 
funcionaba exclusivamente en el 
6128. Además de ofrecerle las más 
sinceras disculpas, en el próximo 
número publicaremos la versión 
del programa que sí funciona en 
su CPC 464, la cual obra ya en 
nuestro poder, pero por razones 
de cierre, agobio y mal endémico 
de todas las publicaciones, nos es 
imposible colocarla en este 
número. 

PC or not PC 


Os escribo porque hace unos 
días compré por curiosidad una 
revista para PC. Y me encontré 
con algunas dudas que ahora os 
pregunto: 

—¿En qué lenguaje están 
escritos los programas de PC? 

—¿No os parece absurdo el 
precio de estos programas que va 
de 5.000 a 4.500.000 de ptas.? 

—¿Por qué esa diferencia entre 
el Inves PC o el Amstrad PC y el 
IBM? 

—¿Hay piratas para los PC? 

¿A qué precio vender los 
programas? 

—¿Para qué sirven las 
diferentes versiones de MS DOS? 
Si sirven para grabar programas, 


ALGUNA 


¿qué hace entonces el programa 
Backup? 

—¿Para qué sirve el Multiplan - 
(es un programa que vi en el disco 
duro de un PC)? 

Adrián Tello Espinosa 

Antes de contestar a sus 
preguntas, nos gustaría hacer 
notar que un compatible PC es un 
ordenador como todos los demás, 
excepto, naturalmente, en su 
hardware. 

1. Los programas para PC 
pueden estar escritos en cualquier 
lenguaje, es decir, por lo que 
comentábamos en el párrafo 
anterior, no existe uno específico 
suyo. Sus aplicaciones, a grandes 
rasgos, están escritas en los 
mismos lenguajes que los de los 
CPCs. Un compatible PC es más 
rápido y potente que un 
ordenador doméstico tipo CPC, 
Spectrum o MSX, por lo que es 
posible usar lenguajes de alto 
nivel, como Basic, Pascal o C, 
para programas que en aquéllos 
requerirían el lenguaje máquina. 

2. El rango tan amplio de 
precios que ostenta el software de 
PC se debe a que el espectro de 
sus aplicaciones es muy amplio. 
Así, en él corren desde un 
humilde juego de «marcianos», 
hasta un programa de proceso de 
imagen tridimensional 
complejísimo que se utiliza para 
hacer anuncios y spots animados 
de publicidad para la televisión. 
Por otra parte, mientras más 
específico es un programa, en 
general, más cuesta, porque se 
venderán menos unidades. 

3. Los compatibles PC se 
caracterizan por poseer lo que en 
jerga informática se denomina 
«arquitectura abierta», vox populi 
que se les puede conectar y añadir 
cualquier cosa. Desde este punto 
de vista, los fabricantes buscan un 
compromiso entre lo que les 
cuesta hacer el ordenador y lo que 
pueden meter en él. Por eso 
algunos PCs no llevan gráficos, 
mientras que el Amstrad PC sí, 
por ejemplo. 

4. Donde hay software, hay 
piratas. El mundo del PC no es 
una excepción. En cuanto a los 
precios, depende del pirata. Sin 
embargo, en general serán mucho 
más bajos, que los oficiales. No 
obstante, existe un serio problema 
con la piratería, desde la óptica 


del usuario: consideraciones éticas 
aparte (no se debe apoyar a los 
piratas), un Barbanegra del soft 
coloca su producto y se lava las 
manos. No hay ningún tipo de 
soporte postventa, ni, sobre todo, 
manuales. En general, es muy 
difícil, casi imposible, usar un 
programa para PC sin manuales. 
Algo se puede hacer, pero ni 
sueñe con enterarse realmente de 
qué va el programa. 

5. El MSDOS es el sistema 
operativo de un PC. Sin él, la 
máquina no funciona en absoluto. 
Si nos ponemos puristas, 
realmente no se puede decir que 
las versiones distintas de MSDOS 
sirvan para algo, en el sentido de 
que su utilidad las diferencia unas 
de otras. Lo que ocurre es que 
cada versión está muy mejorada 
respecto a la anterior. Los 
programas son capaces de 
manejar más memoria, o van más 
rápidos, etc. De todas maneras, 
esto no es algo que deba 
preocupar al usuario no 
programador. Los que deben 
sufrir, y sufren, con el asunto de 
las distintas versiones son los 
diseñadores de programas, que 
muchas veces se las ven y se las 
desean para que su producto sea 
compatible con la mayoría de 
ellas. Con todas, ni soñarlo. 

6. El Multiplán es una hoja de 
cálculo. No es fácil explicar para 
qué sirve sin extendernos más 
aún, pero es el tipo de aplicación 
ideal para manejar información 
numérica y financiera. También se 
usa mucho para supuestos de 
rentabilidad en una situación en la 
que intervienen una serie de 
parámetros variables. Podemos 
saber muy rápidamente como el 
alterar cada uno, por grupos o 
por separado, influye en la 
situación final, y, de este modo, 
hallar el compromiso óptimo de 
beneficio en" un lapso de tiempo 
muy inferior al que conllevaría 
hacerlo a mano. 


Biorritmos forever 


Le escribo para comunicarle un 
problema que tengo al introducir 
un programa de la revista 
AMSTRAD Semanal n.° 3, es ya 
una revista antigua, pero el 
programa me interesó y lo pasé. 

Se trata del programa del 
progama de «Biorritmos», de la 


















pág. 20. Consiste en que me da 
error en la línea 1290, y a pesar 
de que lo he revisado cientos de 
veces no logro encontrar el error. 
Yo culpo el fallo a que faltan dos 
líneas de programa que son la 570 
y 580, si usted pudiera 
facilitármelas le estaría muy 
agradecido. 3 

Le saluda atentamente un 
lector. 

P.D.: Por si le sirve de algo mi 
ordenador es un CPC 6128. 

losé Manuel Castilla 

Vamos a estrenar en este 
número de AMSTRAD Personal 
la eterna cuestión del pograrna 
«Biorritmos», publicado en el 
número 3 de AMSTRAD 
Semanal. 

Lo hacemos porque, a pesar de 
las veces que ¡o hemos contado, 
sigue habiendo lectores interesados 
en este magnífico programa que 
llegan a él por primera vez. 

Vamos allá: el Locomotive Basic 
tiene un tratamiento especial, y 
criticable, para las funciones 
definidas por el usuario. Cuando 
un programa que los contenga se 
ejecuta, el ordenador no 
comprueba su sintaxis en la línea 
donde la función se define, sino 
que, cuando en otra línea la 
función es llamada, entonces el 
ordenador se va al sitio donde se 
la definió y comprueba la sintaxis. 
Hasta aquí, todo correcto. El 
problema surge cuando hay un 
error de sintaxis. Supongamos que 
una función ha sido definida en ¡a 
línea 10 y llamada en la 100. La 
máquina detecta el error de 
sintaxis en la línea 10, pero el 
mensaje indica que el problema 
está en la 100, en la cual, por 
supuesto, no hay nada incorrecto. 
La solución es inspeccionar la 
línea donde ¡a función se define, 
en nuestro ejemplo la 10. 

Misión imposible 

Poseo un ordenador Amstracl 
PC, y trabajo mucho en entorno 
Geni. Como ustedes sabrán para 
cargar Geni, hay que introducir el 
disco 1, luego el 2, a 
continuación el 3, y por último el 
disco con el que deseamos 
trabajar... 

Como comprenderán todo ello 
muy rolloso, y muy lento. 

¿Podrían orientarme paso a paso, 


para crear un disco que fuera 
directamente a GEM DESKTOP.? 
¿Qué ficheros tendría que 
contener el AlTOEXEC.BAT? 

Joaquín Román Rico 

Por ¡o que nos dice en su carta, 
deducimos que no posee disco 
duro. Con dos floppys, no hay 
más remedio que pasar por el 
intercambio de discos, porque los 
f icheros necesarios para inicializar 
y arrancar el Gem no caben en 
uno solo. 


Hardcopys 

El problema que me ha surgido 
es cLsiguientes: antes de cambiar , 
de ordenador, poseía en mi poder 
un CPC 464, con impresora 
Amslrad DM 2000. Por aquel 
entonces copié del número 27 de 
la revista AMSTRAD Semanal un 
programa para copiar la pantalla 
en la impresora. El programa era 
muy bueno y funcionaba a la 
perfección. Pero como aquel 
ordenador se me quedó pequeño, 
cambié a un CPC 6128, que es el 
que actualmente utilizo. El 
problema me aparece cuando, al 
utilizar aquel programa en mi 
nuevo ordenador, me doy cuenta 
que los volcados de pantalla no 
los hace con tanta perfección 
como antes. Principalcntc, el error 
que comete está a la hora de pasar 
por la impresora las lincas 
oblicuas, que aparecen partidas en 
varias partes por pequeñas líneas 
verticales. 

Sergio Martínez Serrano 

El programa al que usted hace 
referencia se diseñó pensando 
exclusivamente en un 464, y se 
hizo completamente en lenguaje 
máquina. Readaptarlo para un 
6128 significaría reescribir de 
nuevo el programa. Por otra 
parte, creemos que muy pronto 
encontrará resuelto su problema 
en las páginas de la revista. 

Pengo problemas 

AI copiar el programa Pengo, 
editado en la revista número 2 de 
AMSTRAD Personal, y ejecutar el 
mismo, después de 23 segundos de 
espera aparece el error 
«Overflowin 480», a la vez que se 


dibuja el nombre «PENGO». 

El hecho es que no se ejecuta el 
juego por el mencionado error. 

Quizá alguna de las variables a 
lo largo del programa deben 
adquirir un valor fuera de rango, 
por eso creo debe estar previsto 
en el programa, que según su 
artículo es compatible con el 
ordenador 6128, que es el mío. 

Agustín Gómez 

El tipo de error que usted nos 
indica en la línea 

480 READ J:POKE 1,J 
significa que al menos una de las 
datas que comienzan a partir de la 
línea 2150 está mal tecleada. El 
error «Overflow» viene a decir 
que el ordenador ha leído un 
valor-que no cabe en la orden 
POKE.- Lo que probablemente 
haya ocurrido es que se le ha 
olvidadlo incluir una coma entre 
dos datas. E! Amstrad ¡o toma 
como un soto número, resultando 
en un valor mayor que 255 y ya 
está. Error «Overflow». 

Doctor Graph 

Tengo un amigo que posee un 
PCW 8256. Podría usar yo en mi 
CPC, por ejemplo, el Doctor 
Graph. En el número 2 de 
AMSTRAD Personal en la 
sección de dudas leí cómo un 
poseedor de un CPC y un PCW 
copiaba con PIP los programas en 
un disco con formato sistema y 
los usaba en su CPC, ¿podría 
hacer yo lo mismo con el Doctor 
Graphl 

Aprovecho para felicitaros por 
la nueva etapa con AMSTRAD 
Personal. Gracias. 

José M. Rodríguez 

No. el Doctor Graph manipula 
directamente ¡a pantalla del PCW, 
la cual es completamente distinta 
de la de un CPC. Con el Mallard 
Basic, el problema no existe, 
porque no emplea comandos 
gráficos. 


Por favor, para una mayor rapi¬ 
dez en la respuesta de sus cartas 
enviadas a esta sección, escribir a: 

AMSTRAD PERSONAL 
Referencia «Sin duda alguna» 
Cira, de Irán, Km 12,400 
28049 MADRID 
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Ihsta sección está dedicada a todas las compras, ventas, 
clubs de usuarios de Amstrad, programadores y, en general, 
cualquier clase de anuncio que pueda servir de utilidad a 
los lectores. Todo aquel que los desee puede enviarnos su 
anuncio, mecanografiado, a: HOBBY PRESS, S.A 
AMSTRAD Personal. Apartado de Correos 232. REF. MC. 
A Icobendas. Madrid. 


ASTURIAS 



M Vendo juegos Amstrad CPC en 
cassette a 500 ptas. cada uno. Entre 
ellos están Tai-Pan, Zynaps, Black 
Magic, Solomon’s Key, The Final 
Matrix, Baskett Two on Two, 
Fernando Martín, Livingstone, 
Kinetik, Match Day, Pulsator, C.S. 
Absorber, Mag-Max, Bomb Jack, 
Enduro Racer, Wizball y muchos 
más. Interesados ponerse en contacto 
con Luis Fernández-Escandón. 
Libertad, 71, 5.° A. Laviana 
(Asturias). Tel. (985) 60 08 09. 


■ Vendo juegos y programas para 
Amstrad 464-664-6128, en disco y en 
cinta, muy baratos. Interesados llamar 
al tel. (985) 28 45 06. También 
pueden escribir a Julio Ramos 
Rodríguez. Plaza Primo de Rivera, 1, 
4.°-12. 3300! Oviedo. ¡Tengo últimas 
novedades! 


■ Vendo CPC 464 (color), joystick, 
programas comerciales (pasan de 100) 
cinco libros, 120 revistas (AMSTRAD 
Semanal, Tu Micro Amstrad, 
Micromanía). Todo por 70.000 ptas. 
Amador Abelleira. Valencia, 23, 2. a 
D. 33210 Gijón (Asturias). 


ANDALUCIA 


3 Cambio juegos de todas clases. 
También compro joystick e ¡nterface 
para un PCW. Tengo juegos y 
programas de utilidad comercial. 
Interesados escribir a A noel Manuel 
Cuevas. Plaza Bcrcngéla, 16, 3.°, 2; o 
llamar al tel. (957) 27 96 74. 

Córdoba. 


■ Vendo Amstrad CPC-6128, color, 
seis meses, nuevo, 2. a unidad, 
impresora DMP-2000, 70 discos. Con 
las últimas novedades, más cassette 
Sanyo con sus conectores. Todo con 
sus libros correspondientes. 

F. Rodríguez Cabello. Calvario 
El Cisne, 4.° C. Tel. 77 83 16 y 
77 08 51. Marbclla (Málaga). Todo 
por 180.000 ptas. En perfectas 
condiciones. O cambio por PC 1512 
color. 



“Sábado Chip”, de 17a 19h. 



























■ Cambio programas para 
ordenadores compatibles PC. Poseo 
un Amstrad PC 1512. Puedes ponerte 
en contacto con José Manuel García. 
José Antonio, 15. 18811 Zujar 
(Granada). Tcl. (958) 71 61 61. 


■ Compro, cambio y vendo 

programas de CPC 6 RS. Tengo 900 
juegos y 400 utilidades. Juegos como 
Rcnegadc, Indiana Jones, etc. 

También tengo programas de PC y 
PCW. Contesto a todo el que mande 
lista. Escribir a Ángel Acebo Castaño. 
Avd. Carlos Haya, 29, l.° 7. 29010 
Málaga. 




■ Hacemos programas de gestión a 
tu medida. Amstrad CPC, PCW, PC 
y compatibles. Dirígete a Bongo 
Studio. Plaza Quemadero, 4. 04003 
Almería. También vendemos 
ordenador Spectrum + por 15.000 
ptas, 


■ Cambio programas CPC’s, sobre 
todo utilidades y programas 
profesionales tipo Music System, Dr. 
Draw, etc. También programas para 
PC’s y compatibles. Me interesan 
trucos y secretos de los PC’s. Escribir 
a: José Vargas Cruz. Ponce León, 21. 
41710 Utrera (Sevilla). 


■ Cambio todo tipo de programas 
gratuitamente. Tengo los mejores 
copiones, juegos y utilidades. 
Ordenador 6128. Total garantía en 
contestación. Envía lista, aunque no 
me interesen te contestaré 
ofreciéndote programas gratis. R. 
Fernández. Diego Serrano, 21, 2.° B. 
Tel.: (957) 41 16 84. Córdoba. 


■ Cambio los mejores programas, 
tanto copiones como utilidades y 
juegos. Contestación asegurada a todo 
el que envíe lista. Escribir a Ricardo. 
Diego Serrano, 21, D, 2.°, 8. 
Córdoba, o llamar al tel. (957) 

41 16 24. 


■ Vendo programas para Amstrad 
CPC en cinta o en disco. Interesados 
escribir a Emilio Martín García. 
Verónica de la Virgen, 7, ].° C. 
18005 Granada. 


BALEARES 



■ Compro hardware para CPC-6I28. 
Toda clase. También juegos, 
utilidades, y profesionales. Enviar 
ofertas a Jaime Puigserver Oliver. 
Campet, 43. 07210 Algaida 
(Mallorca). Baleares. 


■ Compro juegos para Amstrad PC 
1512. Se valorará que empleen el 
modo de alta resolución (16 colores). 
También cambio programas. Tengo 
Lotus, Simulador, Winter GA., 
Wordstar, etc. Enviar ofertas a Pedro 
Antonio Massanet Femenias. Sipells, 
2. 07560 Cala Millor (Mallorca). 
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Todos los sábados, de 5 a 7 
de la tarde, en ‘ ‘Sábado Chip” 
Dirigido por Antonio Rúa. 
Presentado por José Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informática. Haciendo 
radio chip... estilo Cope. 
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ICOMUN 


CATALUÑA 


■ Me interesa comprar Plotter de 
segundo mano, tamaño mínimo A-3 
que sea compatible con los programas 
Autocad Autosketch y Robocad. 
Interesados mandar oferta escrita a 
Francisco Castejón. San Fernando, 

61. 08330 Premia de Mar (Barcelona). 


■ Deseo contactar con usuarios de 
CPC 6641 y 6128 para intercambios 
de extensa programoteca. También en 
PC compatibles. Contestaré a todas 
las cartas. José Rivas Gómez. P.° 
Jaime II el Justo, 10,1-1.°. 08302 
Mataré (Barcelona). 


■ Compro, vendo o cambio 
programas para PC 1640 y 
compatibles. Mandar lista. Vendo 
Alustrad CPC 6128 (color), joystic, 
discos con programas, etc. José 
Calvez Javierre. Martí Blasí, 56, l.°, 
2.°. Hospitalet de Llobregat 
(Barcelona). Tel. (93) 333 25 83 (de 4 
a 9 de la noche). 


■ Compro instrucciones en castellano 
de Pascal/MT + , Turbo Pascal o 
Compas-80. Antonio Martínez. 
Independencia, 238, A-4. 080026 
Barcelona. Tel. 245 93 63. 


■ Vendo Oric-1 y ZX 81 + 16 K 
RAM. Todo por separado. Precio a 
convenir. Llamar a Javi de 20,30 en 
adelante. Tel. (93) 334 32 72. 


■ Vendo el juego Bruce Lee con tapas 
por 300 pías. Kilian Soler. Paseo de 
Pau Casals, 21. Alofranc (Gerona). 


■ Desearía intercambiar programas de 
Amstrad CPC-6128. Tengo sobre 250 
(juegos y utilidades). Interesados 
escribir a Antonio Pre/el. Avda. de 
Cataluña, 46, 9.°, 1. a 08915 Badalona 
(Barcelona). O llamar a los Tels. 

386 75 84 (mañanas) o 399 21 47 
(tardes). 


CASTILLA-LA MANCHA 


■ Vendo el mejor programa de diseño 
gráfico para CPC 6128, incorpora 
movimiento programable fácilmente 
desde sencillos programas Basic 
hechos por ti, por 2.800 ptas disco. 
Mando gratis una cinta demostrativa 
enviando 200 ptas. en sellos nuevos a 
Pedro Jiménez. Antonio Machado, 

20. 16400 Tarancón (Cuenca). 


■ Cambio todo tipo de programas 
para el CPC 464 en cinta. Poseo más 
de 100. Interesados llamar al tel. (911) 
26 19 69 (horas de comida o por la 
noche) o bien, escribir a: Sigüenza, 2, 
6.° B. Azuqueea de Henares 
(Guadalajara). 


■ Cambio juegos y utilidades en disco 
CPC 6128. Sólo dispongo de unos 60 
juegos. Interesados escribir a Raúl 
Priego. Plaza de Calvo Sotclo, 9,2.° 
A. 16001 Cuenca. Llamar al tel. (966) 
22 76 15. 


■ Vendo programas muy baratos para 
Amstrad CPC-6128: Discology, Art 
Studio, Placon, Ms Cobol, CBasic, 
MBasic, Multiplan, Pascal MT+, 
Fortran, Oddjob, Devpac, Tasword 
6128, Cracker II, DBase II, Dr Draw, 
Dr Graph, Mini Office II, Control 
Stocks. Podéis dirigiros a: César 
Carrera González. Eduardo Dato, 8, 
5.° A. 34005 Palencia. Tel. (988) 

74 54 42. 


■ Somos dos amigos de Burgos que 
queremos realizar cambios de 
programas y demás cosas que tengan 
relación con los CPC. Poseemos 300 
programas. Si os interesa, no lo 
dudéis y llamad al tel. (947) 20 47 04 
o escribir a Alberto Fernández 
Fontaneda. San Julián, 5, 2.°. 9002 
Burgos. Responderemos el mismo día 
que os pongáis en contacto con 
nosotros. 


MADRID H 

■ Cambio juegos para Amstrad PC. 
Entre otros: B.R., Xonix, Pollo, 
Combate, Bushido, Golf, Nueve 
príncipes en Amber, Summer, Games, 
etc. Interesados escribir a Iñaki Hoys 
Sollano. Av. Vinateros, 118. 28030 
Madrid. Recuerda, para Amstrad 
PC 1512. 


■ Necesito compilador MS-COBOL 
que cambiaría por juegos o utilidades 
en disco. Sólo en Madrid. Poseo un 
CPC 664. Javier Fernández Álvarez 
Pérez Ayuso, 19. 28002 Madrid. Tel.: 
415 58 45. 


5 































































TRUCOS 


■ 


¡Adivínalo! 

Por: José A. Tejedor García 



E ste programa presenta la 
ayuda que proporciona el 
CALL &BB18 y una forma de 
impresionar a los amigos. El 
ordenador acertará siempre si se 
siguen las reglas indicadas 
mediante sentencias 
Print. 


Numérense 


Por: Angel Parrilla 


E l primer programa pasa 
cualquier número, ya sea 
binario o hexadecimal a base 10, 
eso sí, especificando &x (más 
números) en binario y & en 
hexadecimal. Pasa o pide 8 
números, ya que está pensado 
principalmente para el diseño de 
caracteres. 

El segundo programa pasa a 
hexadecimal cualquier número, 
pero especificando, al igual que en 
el primer programa. En la 
pregunta de anchura del campo, 
tiene que dar un valor 
comprendido entre 0 y 16, de lo 
contrario el ordenador emitirá un 
mensaje de error. 


10 CLS 

20 F0R n=l T0 8 

30 1MPUT 'Introduzca nuterc: "¡i 
40 PRINT STRtta) 

SO NEXT 
60 END 


10 CLS 


20 INPUT 'Introduzca misero: "¡a 


30 INPUT 'Introduzca la anchura de 
canpo: *;b 
40 PRINT H£X$(a,b) 

50 F0R n=l T0 3000:NEXT 
60 SOTO 10 
70 END 


Donut multicolor 

Por: Ramiro Carpena 


L os dibujos tridimensionales 
siempre son atractivos. Este 
truco dibuja en pantalla una 
figura tremendamente 
espectacular, que se puede utilizar 
para presentar nuestros 
programas. Si se observa el 
listado con atención, se verá que 
es fácilmente modificable. 


10 REM DONUT MULTICOLOR 

20 REK RAMIRO CARPENA 

30 DES:M0DE 0:PAPER 0:INK 0,0:DIM c 

ol(14):F0R a=Q T0 14-.READ col(a):NE 

XTíDATA 0,3,0,15,21,24,23,22,13,12, 

10,4,1,7,3 

40 F0R b=450 T0 30 STEP -3:FDR c=l 
T0 350 STEP 3: PLOT (320M25»CQS(b)) 
•■10Q*C0S(c), (200H25*SIN(b)H70*SIN 
(c),c/3 H0D(13)+1 

30 NEXT:NEXT:B0RDER 0:F0R d=333 T0 
1 STEP -I:F0R e=l T0 13:INrC e,col(( 
J+e) PCD 13):NEXT:NEXT 


Controle su 464 

Por: Carlos Serrano Torres 


10 PRINT “[CTRL + x]” 

NOTA: los corchetes de la línea 
10 no deben ponerse, sino que se 
debe apretar CTRL y sin soltar 
apretar X. 

10 PRINT “[CTRL +A]” 

20 GOTO 10 
10 MODO 0 
20 PRINT 

“(CTRL + SHIFT + F]” 

30 GOTO 20 


Pantalla Outéntica 

Por: José Carlos Soto 


L es envío tres programas para 
la sección de Trucos de su 
revista. Consisten en un cambio 
de pantalla controlado por outs y 
que da una presentación increíble 
al programa que se aplique. Cada 
uno de los tres hace esto de forma 
distinta. 


A l ejecutar este truco parece no 
pasar nada, pero si se pulsa dos 
veces Esc y se escribe cualquier 
frase, al intentar borrarla no se 
borra. Actuará como si 


«i 
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pulsásemos la tecla del cursor 
izquierdo. Al hacer esto se pueden 
escribir caracteres encima de los 
anteriores. 


Dibujos 
en memoria 

Por: Francisco Javier 
Paredes Olay 

E ste truco nos permite guardar 
en memoria dibujos. 

Después de terminar la ejecución 
del programa, para ver el dibujo 
sólo deberemos teclear la 
instrucción CALL 40000 y acto 
seguido aparecerá el dibujo. 

En el segundo de los 
programas, para que funcione 
más rápido en el mode 1 y en el 
mode 0, se debe añadir a la 


10 REM CAMBIO DE PANTALLA I 

20 REM JOSE CARLOS SOTO 

30 POR a=25 T0 0 STEP -hGOSUB 80:N 

EXT 

40 CLSiREM Aqui el casbio de pantal 
la 

50 F0R a-0 T0 25:6DSUB 80:NEXT 
80 0UT ítBCOO, 255:0UT fcBD00,l 
70 EKO 

B0 CALL &BD13:0UT &BCOO,1:0UT 4BDOO 
,INT(1.6*a):0UT fcBCOO,6:0UT iBD§0,a 
¡RETURN 


10 REM DIBUJOS EN MEMORIA 
20 REM JAVIER PAREDES 
30 MEMORY 22399 
40 REM 

50 MODE 1:LOCATE 3,1:PRINT*INTR0DUC 
E LA CINTA CON LA PANTALLA. 1 ¡LOCATE 
13,3:PRINT'PULSA UNA TECLA* 



Printeando 

Por: Eduardo Millón 

C on este programa tan sencillo 
podrán pasar cosas 
muy sorprendentes. 

10?“ [CTRL + G] 
\MSTRAD”;:GOTO 10 
10 ? “[CTRL + J] 

[CTRL + K]AMSTRAD”;:GOTO 
10 

Si pulsamos otras 
teclas (por ejemplo L, 
Pr, Z, Q, X, D), 
siguiendo a 
Ctrl en lugar 
de las que 
están, 
tendremos 
otros 

resultados. 




10 REM CAMBIO DE PANTALLA II 
20 REM JOSE CARLOS SOTO 
30 F0R a=25 T0 0 STEP -LG0SUD 90:N 
EH 

40 OUT fcBCOO, 1:0UT &BDOO.O 

50 CLS:REM AQUI EL CAMBIO DE PANTAL 

LA 

60 OUT fcBCOO,1:OUT fcBDOO.40 
70 F0R a^0 T0 25:G0SUB 90:NEXT 
B0 END 

90 CALL fcBD19:0UT fcBCOO,6:OUT fcBDOO 
,a¡RETURN 



60 CALL 48318 
70 LOAD V, 23000 
30 CALL 48C02 
30 POR x=40000 T0 40024 
100 READ aí 

110 P0KE x,VALCfc’+ai) 

120 NEXT 

130 DATA 01,00,40,21,00,cO,11,dB,59 
,la,77,23,13,0b,0c,00,c2,49,9c,04,0 
5,c2,49,9c,c9 


línea 30 la orden Step 2. 

El programa se puede 
modificar escribiendo 
30 FQR X= 320 TO 0 STEP-1 
STEP-2 en los MODES 0 y 1 


10 REM CLS ORIGINAL 
20 REM JAVIER PAREDES 
30 POR x=0 T0 320 STEP 2 
40 0RI6IN 320,200 

50 NOVE x,x:DRAW x,-x,0:DRAW -x,-x: 
DRAW -x,x:DRAM x,x 
60 NEXT 



¿CUÁL ES SU TRUCO? 


Desde esto columna queremos invitar a todos, sin ex¬ 
cepción, o que participen en nuestra revista y se con¬ 
viertan en parte aún mós activa, si cabe, de la misma. 
Estamos convencidos que durante el uso diario de su 
ordenador han descubierto multitud de trucas y pica¬ 
ros ortimañas, maneras de hacer la imposible, que han 
convertido horas de tedioso trabajo en momentos en 
los que la chispa de la inspiración le hacen a uno feli¬ 
citarse por haber comprado un Amstrad. Si efectiva¬ 
mente los han descubierto, ¿por aué no nos los envían? 
Nosotros los miraremos todos, y los seleccionados re¬ 
cibirán como compensación por su esfuerzo cuatro cin¬ 
tas de cassette repletas de juegos, utilidades y progra¬ 
mas publicados por AMSTRAD Personal, de las que 
publicamos codo mes. Además, si el lector nos indica 
en lo carta cuáles quiere, le enviaremos precisamente 
ésos, siempre que no estén agotados. 

Enviad las cartas a la siguiente dirección: AMS- 
TRAD Personal. Ctra. de Irán, km 12.400. 28049 
Madrid. Indicando claramente en el sobre: AMS- 
TRAD Persona/. Referencia Trucos. 
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SERIE ORO 

STAR SORDIUM 

Por Eduardo Fuentetaja 



ste arcade consta de 
48 pantallas. La acción se 
desarrolla en el basurero 
espacial Star Sordium, 
ocupado por el temible cerdo 
Magnus Porkus. Tu misión 
consiste en eliminar al intruso y 
así salvar a la Tierra de morir 
ahogada en su propia basura. 

Para conseguirlo debes encontrar 
los tres módulos de tu nave, y 
después ensamblar la última pieza: 
el Thorpedo (especie de misil en el 
indicador). 

Consejos: La nave permanece 
siempre en movimiento, pero 
podrás pararla disparando 
continuamente. Te será muy útil 
para pasar barreras de electrodos 
y martillos. Además, con el 
disparo puedes destruir a varios 
enemigos. 

Teclas: Q- arriba, A- abajo, O- 
izquierda y P- derecha. 

Si copias el programa respeta 
los números de línea, es 
importante. En caso de aparecer 
un «Error en línea...», si no lo 
encuentras revisa las líneas de la 
1620 a 1710 ó 2500 a 2550. 




10 ' 

ttHH »»»»** mmmflHtt» 

20 ' 

f* 
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H 
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H 
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60 ' 


mí INICIALIZA n* 



70 NODE 0:FOR t=0 TO 15:READ a:INK 
t,a:HEXT:INK 3,15,6:BOEDER OiPAPER 
7: PEN 1;CLS 


80 DATA 0,20,26,15,20,9,18,15,6,3,1 
,11,26,24,13,2 

90 ENV 1,10,1,5,4,1,2,8,-2,1:ENT 2, 
30,-3,1:ENT 3,30,3,1:ENY 3,14,1,2:E 
NT-5,2,-6,1,2,6,l¡ENT-4,20,10,1:ENV 
2 , 4 , 1 , 1 , 4 ,- 1 , 1 , 4 , 1,1 
100 H1ND0UI2,2,19,2,22:PAPER#2,0:CL 
SI2:PAPER 0 

110 a=32:b=228:60SUB 2260:a=320:b=3 
6:603UB 2260:a=412:b=200:G0SUB 2260 
120 FOR t=0 T0 4 STEP 2:NQVE 640,39 
8-t:DRAHR 02-10,0,0:DRAUR-623,0,8: 
DRAUR 0,-394,13:DRAHR 0,-10,0 
130 «OVE 32,43+t:DRAUR 534-1*2,0,3: 
DRAUR 0,328-t,!3:H0VE 32,382-t:DRAW 
640,332-t,7:NE XT 

140 UIHD0Ht2,2,19,3,21:DEFINT a-y:6 
0SU8 1630:bas=FREC"):RANDOP1IZ£ TIrt 
E:PEN 2: 

150 x=l1:y=4:f=252:scn=33:ch=225:vi 


<1=3:FOR t=0 T0 3:x(tl=21-t:yU)=24: 
LOCATE 19-t,24:PRtNT CHR$(225):NEXT 
:x(l)=x:y(l)=y:ir=x:iy=y:S05U8 2230 
160 PL0T 32,16,0:DRAUR 220,0:DRA«f 
0,14:DRAUR-220,0:DRAUR 0,-14:PEH 1¡ 
LOCATE 11,24:PRINT*3* 

170 LOCATE 14,24:PEN 8:PRINT CHRK2 
321CHRt(32>CHRi(22)’l'CHR$(8)CHRS(8 
71:PEN 2:PRINT CHR$(23!):H0VE 412,1 
6:DRAHR 0,14,0 

130 RESTORE 2600:F0R i=¡ T0 42:READ 
at: GOSUB 2570: [F MEYÍ="THEN NEX 
T:GOTO 180 

190 CLES2: r,eg-5: • "OrtlB 2120 

200 PRINT CHRt(22) , l , :rn=z(scn,0):l 
F rn<3 0R rn=6 THEN m¡=z(scn,21 
210 1 

m PINTA DECORADOS 
220 b=INT(scn/16)*l:IF HlDÍ(8INt(z( 
sen, 1),4),2,1)=*0“AND b=l 0R Í1IDÍ<8 
IN*(z(s;n, 11,41,4,17= ■O'AND h)l 0R 
scr,=4S 0- -cn=43 THEN 24-T 
230 0N h GOSUB 240,230,290,300:GÜT0 
340 

240 FOR i=4 T0 1 STEP-1-.F0R t=AC!44 
*i*34+RND*3-4 T0 tCIS8*ii76HBID*8-4 
STEP 4 

250 1F t<!.C168*H?6*fiNDf8-4 0R t>4C 
I64*U84tRND*8-4 THEN CALL ¡M000,2, 
4,t,!i8331+RND*3 


260 NEIT t,i 

270 FOR i=0 T0 1:F0R i=K144-ifB0 T 
0 tC138-1*80 STEP 4:CALL 6A000,2,4, 
t,18331UNT(RN0»3):NEIT t,i:RETURN 
230 FOR t=VC5AC TO tC5E0 STEP 12:CA 
LL 4A000,2,8, t, 48000: NEXT;R.ETURN 
290 FOR t=4C558 TO 4C590 STEP 8¡CAL 
L 4AOOO,3,7,t,48080:NEIT:RETURN 
300 POR t=RC55C T0 4C530 STEP 12:CA 
LL 4A000,3,7,t,48123:NEXT:FOR t=4C4 
74 T0 4C43A STEP 12:CALl 4A000,3,7, 
t,48129;NEXT:RETURN 
310 ' 

hi PINTA LIMITES mí 

320 vvl=4C0P4-(T=3)f63: vv2=4C640:G0 
SUB 2480:RETURN 

330 FOR T=48804»720»t T0 4B84At720r 
t STEP t*2:CALL 4A000,i,t*2,i,482B1 
+32*tHNT(RND*(4-t))*32:KEXT:cp(t/2 
-1)=0:RETURN 

340 cp<0)--!:cp(l)--l:aí--8iN*(!(scn,l 
),41:FOR t=l T0 4:If VAL(MIDÍ(at,t, 
I11THEN 0N t GOSUB 320,330,320,330 
350 NEXT 

360 FOR t=0 T0 l-.IF cp (t 1 THEN hhl=4 

C0A4+1 * 1440;hh2=4C0B3+1 *1440:G03U8 

2460:hhl=4C0D8H»1440:hh2=4C0E8*tM 

440:GOSUB 2460 

370 NEXT 

380 ’ 


in PINTA OBJETOS m 

390 IP 2 <scn,21=25 THEN PEN 2;L0CAT 
E 2 (scn,3),z(scn,4):PRINT CHRM143) 
CHRt(3)¡ ¡PEN 15:PRINT CHÍÍC26) 

400 IF scn--29 AND laser=0 THEN LOCA 
TE 3,17:PEN 2:PRINT CHRt(2311CHRt(8 
);:PEN B:PRINT CHRÍC232) 

410 FOR t=0 TO 24:IF 2(scn,t)=50 TH 
EN PEN 2:LOCATE 2 (sen,t+i),z(sen,tt 
2):PRINT CHRt(223)CHRt(3);:FEN 15:P 
RINT CHRt!230):rest=l 
420 NEXT 
430 ’ 

m PINTA ENEMIGOS «• 

440 LOCATE 1,1: OH rn GOSUB 430,510, 
530,540,560,570,580,600,620 
450 c=0:d=0:PEN 2:L0CATE x,y.PR!NT 
CHRt(ch 1 

460 IF scn=33 AND 2(33,11=9 THEN TO 
R t=! T0 4:hh 1=tC0B8+1 *4:hh2=hh 1: GO 
SUB 2460:hhl=tCOD8-t»4-.hh2-hbl-.60SU 
B 2460:301010 1,99,5,,3,,30:T0R p=l 
T0 500:NEXT p,t:z(33,11=13 
470 ??,INT CH’Jt(2tl’0 , :bas4'fE("l:« 
or t =0:GDTO 640 

480 GOSUB 2350:FOR t=l T0 HU:PR1NT 
CHRt(22)*0’:PEN 14:L0CATE q(t>,v(t) 
•.PRINT CHRt(2431 

490 LOCATE q(t) ,»(t)-2-.PRINT CHRK2 
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42)CHRt(3)CHRt(22)’l‘; :PEN 12:PR!NT 
CHR<(244) 

500 MOVE q(t)*32-20,4l6-v(t)*16:DRA 
Uft 0,14,12:flÜVE q!t)*32-16,4l6-u(t) 
»i6:DRftHR 0,14,14:NEXT:F0R t=l 10 1 
0:reít)=0:NEXT:EVERY 17 G0SÜ8 1100: 
RETURH 

510 G05UB 2350:F0R t=l TO nu:CALL l 
A000,2,4,tC000Mq(t)-l)*4Hw(t)-2)* 
BO,181D1 

520 CALL IA000,2,4,lC000*(q(t)-l)»4 
♦ <ul(t)»v(t))*80,&81F1:NEXTíEVERY 7 
6DSUB 1050: RETIJRN 

530 rOR t--0 10 10:re(t)=0:N£XT:EVER 
V 20 GD3UB 1190:RETURK 
540 ROR t=3 TO 18 STEP 5:L0CATE t,4 
:PEN 9:PRINT CHRÍ(239)CHR$<8);:PEN 
14:PR1NT CHRt(240)CHR$(9); 

550 PEN 1:PRINT CHRt1241):NEXT:fOR 
t = l TO 5: GOSUB 1300: NEX' ^'.’CRY 13 G 
0SU8 1250:RETURN 

560 POR t=0 TO 2:reCt)=-l:NEXT:POR 
t=i,C100 TO IC130 STEP 20:CALL JAOOO 
,3,7,t,!i8l29:N£IT:EV£RY 8 GOSUB 134 
0: RE TURN 

570 GOSUB 2350:CALL fcAOOO,2,8,Í(C5B4 
,48000¡EVERY 9 GOSUB 1420:RETURN 
580 EOR t=tClF4 TO 4CG00 STEP 400-.C 
ALL 4A000,2,9,t,43000:NEIT:FDR t=4C 
104 TO 4C600 STEP 400:FQR hhl=t TO 
1*80 STEP 80:hh2=hhl*4:G0SUB 2460:H 
EXT:NEXT 

590 vvl=SC128 , ,vv2=4C650'.G0SU8 2480: 
v(1)=2:v(2) =4:EOR (-‘O TO 5:re(t)=0: 
NEXT:EVERY 25 GOSUB 1460:GQSUB 1460 
:RETURN 

600 vvl=4C108:vv2=4C650:GOSUB 24B0: 
vvI=4C128:w2=4C650:GOSUB 2430:L0CA 
TE 7,B:PR1NT CHRK16) 

610 LOCATE 15,14.-PRIHT CHfit(l6>:e=3 
:el=3:s=0:EVERY 14 GOSUB 1530:RETUR 
N 

620 UIIID0HI3,3,4,3,21: PAPERI3,0:CLS 
I3:CALL 4A000|3,8,4C0A8,48231:el--4: 
la5er=0:pt=0:EVERY 17 GOSUB 1580:RE 
TURN 
630 ' 

m RUTINA PRINCIPAL m 

640 1F TNKEY(47)=0 THEN 850 
650 IT INPEY(69)=0 THEN c-0:d=l 
660 ir INKEY(34)=0 THEN c=-!:d=0:ch 
=226 

670 ir INKEY(27)=0 THEN c=l:d=0:ch= 
225 

680 IF INKEY(67> =0 THEN c=0:d=-l 
630 ir c=0 AND d=0 THEN 640 
700 IF «ort THEN 2330 
710 a-x*e:b=y*d:IF scn=43 THEN IF a 
<5 THEN 640 

720 IF a=l OR a=20 OR b=2 OR b=22 T 
HEN 1000 

730 te=TEST(a*32-20,408-b»16)•• IF te 
>4 THEN IE te>10 THEN req=te/5-(re= 
7)*5:GOSUB 2300:GOTO 640 ELSE 640 
740 IF te=2 THEN GOSUB 800 • 

750 OI:PEN 2:L0CATE a,b:PRINT CHRM 
diUPEN 3:LOCATE x(pt*l),y(pt*l):IF 
d=0 THEN PRINT CHR»(ch*2)ELSE PRIN 
T' ‘ 

7G0 PEN 2: IF x(pt*2)Oa OR y(pt*2)< 
>b THEN LOCATE x C pt+2 ) ,y ( pt+2 ); PR 1N 

T’ 1 

770 x=a:y=b:EOR t=pt*2 TO 2 STEP-1: 
i(l)=x(t-U:y<l)=y(t-I):KEXT:xII)=x 
:y(l)=y 

730 EI:GOTO 640 


7S0 ' 

*** IDENTIFICA OBJETO *** 

300 IF z(scn,2)=25 THEN SOUND 1,120 
,9,,3,,20:S0ÜND 1,20 I 20 I1 3,,30:z(sc 
n,2)=0:pt=pt*l:L0CATE 19-pt,24:PRIN 
T* 1 ¡GOTO 830 

310 IE 5cn=29 ANO la5er=0 THEN IE p 
1=3 THEN 1aser=1:SOUND 1,20,20,,3,, 
30¡LOCATE 14,24:PR INT“ *:R£TURN ELS 
E PETURN 

320 SOUNO 1,40,40,0,3,5 

830 f=252:z(sen,restO=0:GOSUB 2280: 

RETURN 

840 ' 

*»• DISPAROS »** 

aso IF «orí THEN 2330 
860 IF ch=225 THEN tope=19:calc=t E 
L3E lope=2:ca!c=-l 
870 IP x=tope THEN 640 ELSE OI-.PEN 
S-5*!la?er=l):E0R t=x*<alc TO tope 
STEP cale:SOUND 1,t»(5M1 aser♦ 1)), I 
,6 

880 ted=TEST(t*32-20,40B-y«16)lIF t 
ed=0 THEN 920 ELSE IE tedt(8-üaser 
=1)*5)AN0 ted<>2 THEN SOUNO 1,0,10, 
7,,,20'.LOCATE t.y-.PRINT’ ’ 

890 IE t-calc<>x THEN LOCATE t-calc 
,y:PRINT" ‘:1E ted=8 THEN 950 
900 IE ted=ll THEN GOSUB 970 
910 El:GOTO 640 

920 LOCATE t,y,PRINT CHR*(233*1 aser 
):IF t<h*calc THEN LOCATE t-calc,y 
¡PRINT* * 

930 NEXhLODATE t-calc ,y.PRINT* *-.E 
l.-GOTO G40 
940 1 

H« IDENTIFICA VICTIMA m 

950 IF scn=48 THEN SOUNO 1,400,10,7 

,,,20.cer♦ 1:IF cer=35 THEN 2200 

960 EI:GOTO G40 

970 SOUNO 1,400,10,7,,,30:F0R j=0 T 
O 9: IE t=r<j0AND y=e(j)THEN re(j)=( 
rn=5):LOCATE r(j),e(j):PEN 12:PR1NT 
CHRtí 143JCHRK8);¡PEN 0:PR1NT CHS» 
(193':RETURN 
930 NEXT:RETURN 
990 ’ 

*** CAMBIO DE PANTALLA «» 

1000 IF x=!9 THEN x=2:scn=scn*l ELS 
E IF x=2 THEN x=l9+Cscn=49):scn=sce 
-1 

1010 IF y=21 THEN y=3:scn=scn+8 ELS 
E IF y=3 THEN y=21:scn=scn-8 
1020 DI:ix=x:iy=y 

1030 EOR t=0 TO !0:x(t)=x:y(t)=y:NE 
IT ¡CALL tiBCA7: CLSI2: EVERY 3*9 GOSUB 
1320:EI:GOTO 200 
1040 ’ 

**< ELECTRODOS *«* 

1050 IF RND*3<1 THEN re(u)=(NOT re( 
u O) +2 

1060 IF relu'THEN SOUND 2,1BO,20,6, 

,5:MOVE q(u)*32-20,398-w(u)*!6:DRAH 
R O,-»1(u)*16*2,1! 

1070 IF re(u)=0 THEN PLOT q(u)*32-2 
0,398-w(u)*16,0:DRAHR 0,-el(u)*16*2 
1080 u=RND*lna-l)+I:RETURN 
1090 ’ 

m MARTILLOS ««• 

1100 u=RNO*Cnu-1)*1:IF q(u) = x OR re 
(u)=0 THEN 1110 ELSE 1150 


1110 IF q(u)=X ANO y>w(u)AND ytwlu) 
+ul(u)*3 THEN sec(u)=y-2:f1=1 ELSE 
sec(u)=v<u)*wl(u)*l 
1120 LOCATE q(u),u(u):PRINT" *:MOVE 
q(u)*32-16,430-vlu)* 16:DRAHR O,-(5 
ec(u)-e!u))*16-32,14:MOVE q(u)«32-2 
0,43G-WÍU)* 16 

1130 DRAHR O,-tsec Cu)-uíu))*16-32,1 
2:PEN I4:LOCATE q(u),sec(u)*1:PRINT 
CHR$(243):SOUND 2,300,30, 11,2,3,30 
:re(u) = l: IF II THEN reg=40:fl=0:60S 
UB 2300 
1140 RETURN 

1150 FOR t=sec(u)*l TO e(u)STEP-l:L 
OCATE q(u),txPRfNT" *:NEIT 
1160 PEN 14.-L0CATE qCu),utu):PRINT 
CHRt(243):re(u)=0: RETURN 
1170 1 

m ASTEROIDES m 

1180 u=RND*9’.lF reiultHEN 1220 
1190 IF c=0 AND d=0 THEN r(u)=x*RND 
»8-5:e(u)=y*RND*3-5 ELSE r(u)=x-<2* 
c)«(d=0):E(u)=y-(2*d)*(c=0) 

1200 IF TEST(r(u)*32-20,408-etu)*16 
)0R rCu)<2 OR r(u)>19 OR e(u)<4 DR 
e(u)>20 THEN RETURN 
1210G0SU8 1230-.L0CATE r(u) ,e(u)-,PE 
N 11¡PRINT CHRt<237)CHR»(22)*l*:PEN 
15:L0CATE r<u),e(u):PRINT CHRH238 
)CHR$(22)*0*:re(u)=l ¡RETURN 
1220 60SUB 1230:L0CAT£ r(u),e(u):PR 
INT* * , .re(u)=0:RETURN 
1230 SOUND 2,40-(re(u)-l)*90,30,4,0 
,2*re(u):F0R p=l TO 20:NEXT:FOR ¡=0 
TO 1'.LOCATE r(u),etuhP£N 15',PRINT 
CHR»(235*re(u)-i*(re(u)*2-l)):F0R 
p=l TO 20:NEXT p,i:RETURN 
1240 ' 

«»» MINAS *** 

1250 FOR. t--l TO 4'.rl(t)v(t)*rp(t)'. 
e(t)=e(t)-l6 

1260 te*-TEST(r 1 (t) ,e(t))'.IF te«=2 
THEN SOUNO 2,200,10,7,,,20:reg=26:6 
0SU8 2300:GOTO 1280 ELSE IF tes THE 
N 1280 

1270 PLOT rl(t),e(t),t*4:PL0T r(t), 

e(t1*16,0:r(t)=rl(t):NEIT:RETURN 

1280 PLOT r(t),ett)*16,0 

1290 SOUNO 2,10,15,5,,4 

1300 r(t)=161*t-85:e(t)=334 

1310 IF(r¡t)-50)/32>x THEN rp(t)--3 

2 ELSE IF(r(t)*50)/32<x THEN rp(t)= 

32 ELSE rp(t)=0 

1320 RETURN 

1330 ' 

H* MARCIANOS *** 

1340 u=u*I:IF u>2 THEN u=0 

1350 IF reíuKO THEN r (u) =5*u*5:e(u 

)=7:re(u)=l 

1360 IE r(u)>x THEN rl=r(u)-l ELSE 
IE ríuKx THEN rlvlu)U ELSE rl=r( 

u) 

1370 IF e(u))y THEN el=e(u)-l ELSE 
IF etuKy THEN el=e(u)*l ELSE el=e( 

u'qi 

1380 IE TEST ir 1*32-20,408-el*16)<>0 
THEN rl=r*RND*3-l:el=e*RND*3-l:RET 

URN 

1390 IF r!=x ANO el=y THEN reg=15:G 
OSUB 2300:RETURN 

1400 LOCATE rtu),e(u):PRINT* *:PEN 
II¡LOCATE rl,el:PRINI CHRÍ(247*re(u 
)>:r(u)=rl:e(u)=el:re(u)=CNOT re(u) 

)*2:RETURN 

1410 1 



1420 tq=0:LOCATE 6,13:60SUB 2390 
1430 IE y=19 AND x>7 AND x<17 THEN 
r=x-1:e=19:GOSUB 2430¡reg=300:G03U8 
2300 

1440 RETURN 
1450 ' 

tu TANQUES EN COLUMNA m 

1460 FOR tq=0 TO 2:LOCATE 6,6*tq*5‘. 
GOSUB 2400:NEXT: IF re(u)=l THEN 151 

O 

1470 u=RN0*2:r(u)=14:ul=(y-6.5)/5:I 
F VAL(STRl((y-6.5)/5-0.1))=uI THEN 
u=ul;r(u)=x-l:fl=l:GOTO 1490 
1430 IE RHD* 10<7 THEN RETURN 
1490 r=r(u):e=7+u*5:GOSUB 2430:re(u 
)=1:IF II THEN r1=0:reg=40:GOSUB 23 
00 

1500 RETURN 

1510 FOR t=r(u)TO 8 STEP-1:LOCATE 1 
,7*u»5:PRINT* *:NEXT:re(u)=0:RETURA 
1520 ' 

H* ASCENSOR *** 

1530 IF e*l=y ANO x>7 AND x<15 THEI 
PEN 15:LOCATE 8,y-l:PRINT SIRING*- 
7,255)'.PEN 2'.reg-12'.GOSUB 2300-.RETU 
RN 

1540 e=e*l:SOUND 2,400,28,3,,5;PEN 
15:LOCATE 8,e:PRINT STRINGK7,255)¡ 
LOCATE B,el:PRINT SPACEt(7):e1=e:ir 
e=20 THEN e=3:L0CATE 8,3:PRINT SPA 
CEK7) 

1550 IE e/10=lNT(e/10)AND s<4 AND y 
<20 THEN s=s*l'.SOUNO 1 ,99 ,5, ,3,,30: 
CALL JAOOO,1,4, AC6!8*5«4,J8311:CALL 
MOCO, 1,4,40673-5*4,18311 
1560 RETURN 
1570 ' 

m MAGNUS PORKUS *'* 

1580 IE re THEN re=0:reg=40:GOSU8 2 
300:LOCATE 5,el:PRINT SPACE$(x-5):R 
ETURN 

1590 IF elíy THEN el=el* 1:LOCATE13, 

1,1: PR INT13,CHS1111):RETURN 
1600 IF ei>Y THEN e1=el-1:LOCATE43, 
4,20:PRINI13,* ‘ELSE re=I:r=x-1:e=e 
1:GOSUB 2430 
1610 RETURN 
1620 ' 

*** LECTURA DE DATOS *** 

1630 DIM zt63,24):KESTORE 1730:1 in = 
1730:FOR t=0 TO 63:n=0 
1640 READ a:IE a>80 THEN chec k=a: IE 
checkOsu» THEN 2550 ELSE su«=0:li 
n=hn*10:G0T0 1640 
1650 sui=5u>*a:IF a=22 THEN 1670 
1660 z(t, n)=a: n-n + 1: ROTO 1640 
1670 NEXT:READ a: IF sunOa THEN 255 
O 

1680 IF PEEK(RABFF)=62 THEN RETURN 
1690 1 in=1800:LOCATE 3,12:PRINr*Esp 
era un nonento":n=l*8000:ndt=901 :GOS 
UB 2500 

1700 n=!tAOOO: ndt-76; GOSUB 2500 
1710 n=LA803:ndt =266:SYMBOL AETER 2 
25:GOSUB 250Q:RE1URN 
1720 1 

*** DATOS DEL MAPA ««* 

1730 DATA 22,22,22,3,12,22,0,4,22,3 
,5,22,1,5,5,8,11,5,10,8,3,12,10,4,1 
4,7,3,18,11,5,22,1,6,4,8,10,5,9,12, 
5,10,10,5,17,16,0,50,18,11,22,22,1, 












































SERIE ORO 


12,6,11,13,5,601 

1740 DMA 13,11,5,14,3,5,16,12,5,17 
,10,5,13,8,5,50,3,12,22,0,7,22,7,0, 
22,8, H,50,4,7,Í2,22, 22,2, 11, 4, 6, 9; 
5,7,3,5,15,1,5,16,9,5,22,22,2,8,6,8 
,3,7,9,9,7,661 

1750 DATA 10,9,7,12,3,7,13,3,7, 14,9 

,7,22,5,6,22,7,0,22,8,8,22,4,5,22,3 

,6,22,22,0,12,22,1,1,4,3,10,0,4,7,1 

1,5,9,0,17,10,8,22,4,1,22,2,3,3,4,7 

,10,10,10,1,16,558 

1760 DATA 7,10,22,8,10,22,3,13,22,5 

,3,22,22,8,10,50,18,18,22,0,3,25,18 

,7,22,4,5,22,2,5,3,5,12,5,12,8,3,13 

,5,10,22,1,0,2,7,8,3,15,8,8,22,5,5, 

22,3,6,"’'’ 22,5,681 

1770 DATA 9,22,1,5,6,7,10,5,9,11,3, 

10,11,3,11,11,3,12,11,3,14,10,5,22, 

2,5,4,3,7,3,10,1,3,11,11,3,12,13,3, 

50,16,5,22,3,6,25,18,19,22,7,0,22,2 

2,7,0,22,22,9,616 

1780 DATA 15,22,6,5,1,16,20,-3,22,4 
,5,22,5,3,22,3,9,50,5,17,22,5,5,22, 
1,1,4,4,9,8,6,9,8,8,9,8,16,11, 1,23, 
5,6,22,22,22,22,22,0,13,25,3,10,22, 
3,5,22,4,5,22,683 

1730 DATA 2,3,3,4,17,1,5,5,13,6,5,1 

,22,87 

1300 1 

tu DATOS DE LOS GRAFICOS "t 
1810 DATA 0,20,160,20,120,0,1,0,180 
,120,240,40,0,0,1,3,120,240,240,240 
,160,0,20,60,120,23,3,240,130,121,1 
20,240,120,240,240,240,240,240,240, 
90,120,161,4353 

1820 DATA 82,240,¡60,0,80,240,1B0,2 
40,240,240,0,0,0,0, 0,0,120,0,0,0,0, 
0,80,60,240,120,60,160,0,0,0,0,0,0, 
0,0,0,0,180,180,180,180,180,180,240 
,0,105,151,4118 

1830 DATA 195,195,195,151,150,160,2 

25.3.131.131.131.131.67.240.105.3.1 

31.131.131.131.67.150.240.195.195.1 

95.195.195.195.240.80.120.120.120.1 
20,120,120,40,5444 

1840 DATA D,0,9,6,12,0,0,0,4,3,9,6, 
8,0,0,4,3,3,3,12,0,0,3,3,3,6,12,8,0 
,9,3,3,3,6,8,0,9,3,3,6,6,8,4,3,3,3, 
1,12,12,4,3,3,3,3,6,12,4,3,3,3,9,9, 
12,4,6,3,3,6,6940 

1350 DATA 6,12,4,3,6,6,3,12,12,9,3, 
3,3,12,6,12,9,3,3,9,3,12,12,9,6,3,3 
,3,12,8,3,3,9,9,12,12,8,1,3,34,0,23 
3,80,0,80,124,65,168,233,0,0,0,225, 
163,252,130,7582 

1860 DATA 84,130,0,0,252,214,252,23 
3,0,0,65,84,252,214,115,0,0,0,34,23 
3,233,0,0,0,0,214,252,130,0,0,0,65, 
252,233,168,0,0,0,214,130,163,214,1 
30,0,0,5,223,4923 

1870 DATA 35,95,15,15,0,16,223,175, 

15.15.15.10.16.223.95.15.15.15.10.1 
6,143,15,15,15,15,10,0,0,0,0,0,0,0, 
0,223, 255,255,95,15,0,32,117,255,17 
5,175,15,85,3004 

18B0 DATA 101,101,239,95,85,5,255,2 

07,101,239,15,5,5,175,239,101,239,9 

5,5,5,175,85,101,239,15,85,5,10,85, 

101,239,93,5,5,10, 0,101,79,95,5,5,0 

,0,101,239,15,4207 

1890 DATA 5,5,0,O,10!,239,¡5,5,5,0, 

0,101,79,95,5,5,0,0,101,239,15,5,5, 

0,0,117,79,15,5,5,0,0,143,175,15,1: 

,15,0,0,5,0,0,0,5,0,16,223,95,35,1: 


,15,10,16,223,232? 

1900 DATA 175,15,15,15,10,16,223,9! 
,15,15,15,10,5,143,15,15,15,15,0,2 
1 ,1 fj/V» ,T24 c j,l 79 ,246 ,130 ,0 ,6! , 
63,0,0,81,163,0,0,31,163,0,0,31,16 
,0,0,81,168,3494 

1910 DATA 0,0,81,168,0,0,211,233,0 
65,243, 246,120,81,115,243, 168, 17, 51 
,243,163,17,51,243,163,81,115,243,1 
68,81,243,243,168,65,243,246,130,0, 
211,233,0,0,5412 

1920 DATA 81, 168, O, 0, 81,168, O, 0, BT, 
163,0,0,31,168,0,0,81,163,0,65,179, 
246,130,211,115,243,233,35,255,255, 
170,0,0,0,34,255,191,63,63,42,0,0,4 
2,15,127,255,4523 

1330 OATA 255,111,42,21,34,0,15,255 
,191,127,11,17,42,0,0,95,127,175,67 
,55,34,0,0,31,255,14,252,59,42,0,0, 
255,175,252,252,189,0,0,211,255,175 
,214,188,244,4897 

1940 DATA 65,65,246,253,175,252,248 
,120,131,65,252,253,94,252,252,244, 
252,81,252,253,94 ,252 ,752,25,2,752,8 
4,169,252,175,252,161,84,84,211,252 
,252,175,252,7318 

1950 DATA 252,2,0,227,252,252,252,1 
69,252,252,2,162,252,252,252,252,25 
2,233,233,2,252, 252,252,252,233, 130 
, 131,0,232,252,252,252,3,8!, 2 
52,214,252,7347 

1960 DATA 252,0,0,131,246,252,195,2 
14,214, 2, 65, 67, 246, 233, 246, 0, 86, 169 
,65,195,246,211,168,0,1,252,0,1,84, 
81,168,0,1,84,0,65,21,42,63,0,126,2 

I, 0,0,0,42,21,4576 

1970 DATA 21,42,42,0,0,115,243,243, 

227,246,252,252,233,246,115,227,233 

,246,243,233,233,246,246,233,233,24 

6,99, 195, 233; 246, 2JLV33 233 19 

5,135,130,113,255,7533 

1980 OATA 255,170,49,255,255,5,48,1 

19,170,15,48,113,5,15,48,49,5,15,48 

,103,138,15,49,207,207,5,103,207,20 

7,138,0,80,0,0,0,0,0,0,0,180,0,0,40 

,0,0,0,80,40,3486 

1990 OATA 160,0,180,0,160,40,120,12 
0,130,0,180,80,40,0,240,180,150,20, 
240,120,120,80,120,120,130,240,210, 
105,180,225,240,210,120,120,105,240 
,105,240,225,5395 

2000 DATA 105,210,150,195,210,195,1 
80,1245 

2010 ’ tu DATOS C/íl ni 

2020 DATA 221,110,0,221,102,1,221,9 

4,2,221,86,3,237,83,74,144,221,78,4 

,6,0,237,67 ,76,144 ,221 ,70 ,6 ,197 ,6 ,8 

,197,237,75,76,144,237,176,237,75,7 

6,144,229,235,5293 

2030 DATA 17,0,8,25,237,66,235,225, 

193,16, 23 2,2 29 , 2 3 7 , 31,74, 144 , 235,17 

,80,0,25,34,74,144,235,225,193,16,2 

II, 201,3719 
2040 1 

ttt DATOS DE LOS CARACTERES it 

t 

2050 DATA 120,252,226,225,255,126,3 
6,126,30,63,71,135,255,126,36,126,0 
,14,31,255,63,6,0,0,0,112,248,255,2 
52,96,0,0,0,123,129,52,0,129,123,52 
,126,126,126,4538 

2060 DATA 74,126,125,128,74,0,0,20, 
28,21,66,188,0,0,188,234,227,234,18 



3,0,0,0,0,0,0,0,0,0,255,0,0,60,255, 
255,60,0,0,0,0,8,28,28,8,0,0,0,24,6 
0,60,60,60,24,3165 
2070 DATA 0,24,48,104,112,104,80,32 
, 18,0,12,22, 14,22,46,28,8,0,0,0,0,1 
jj.ICij, 14,0,56,80, 144,144,32,32,32, 
16,4,10,3,9,4,4,4,8,0,126,126,1342 
2080 DATA 126,60,60,24,0,24,24,60,2 
8,126,62,255,255,0,64,64,64,32,32,1 
6,0,0,0,0,182,255,10,0,0,0,64 ,iy,l 
01,O,245,110,O,12,16,ISO,153,121,45 
,8,48,48,66,53,3227 
2090 DATA 23,134,172,66,12,0,0,0,12 
6,129,129,123,126,0,0,0,60,98,98,98 
,60,0,0,0,24,52,52,52,24,0,0 ,0 ,15,5 
6,56,56,16,0,0,0,24,1944 
2100 DATA 44,44,44,24,0,0,0,60,70,7 
O,70,60,62,130,130,190,190,62,128,6 
2, lj 60 
2110 ’ 

ttt EXTERIORES tu 
2120 FOR l-'l TO 40:PLOT RNDt500*64, 
RND • 280*70 ,RHD«15sNEíT:hhl=lC644:hh 
2-LC658:603U8 2460:hlil=W678:tti2=lC 
688-.605UB 2460:PEN 2:PR!NT CHÍ.K22) 
'O" 

2130 LOCATE l!,n:PRINT CHRM2251CHR 
l(10tn«g/2)CHR»<8)‘ ':n=nt-rteg: IT n> 
21 OR n<4 THEN CLS»2:RETURN 
2140 FOR p--l TO 300.-K?XI.-GOTO 2130 
2150 1 ttt hllEPTE tt* 

2160 FOR p=l TO 5000:H8XT:CALL Í.BBO 

3:RESTORE 2580:FDR i=l TD 8 

2170 PEAD al:GOSUB 2570:1F 1NKEYI--’ 

•THEN NE1T 

2130 RON 140 

2190 ' 

‘ ttt VICTORIA ttt 

2200 SOUNO 2,300,100,7,,,20:PEN 3:F 
OR t = l TO 150:PLOT RNDt60*64, RNDt« 
M334-eltl&),0:NEXT:E0R t=l TO 20:L 
OCATE 13,1,1:PR1NTI3,CHRt(11) 

2210 FOR p=l TO 300:HEXT p,t:PEN 2: 
FOR t=s TO 3 STEP-1¡LOCATE t,y:PRIN 
T CHRM226)’ ‘:FOR p=l TO 400:NEXT 
p,t:FOR t=y TD 3 STEP-1 
2320 LOCATE 3,t-.PRINT CHRK228)i'JTRR 
(10)CHRt(B)“ -:FOR p=l TO 400:HEXT 
p,t:CLSI2:neg=-l:n=20:GOSUB 2120 
2230 RESTORE 2590:CALL LBB03:T0R i= 

1 TO 10:READ aS:GOSUB 2570: NEX T: RUN 
140 

2240 ' 

ttt RUTINAS AUXILIARES ttt 
2250 1 PINTA BORDES 
2260 EOR t=0 TO 4 STEP 2:N0VE a,t*l 
OiDPAHR b-1,0,8:DRAUR 0,20-1,13:NEI 
T:RETURN 

2270 ’ PINTA ENERGIA 

2280 DI:FOR 1=38 TO f STEP 4:cí=5-( 

1>90):NOVE t, 18:DRAW t,28,c1:NEXT:E 
I:RETURN 

2290 1 RESTA ENERGIA 
2300 DI.-FOR TO f-reg STEP-l.-SOU 
NO l,50tj, 1,6:PLOT j,18,0:DRAH j,23 
:!F j>36 THEN N€U: í=j:EI:RETURN 
2310 1 RESTA VIDA 
2320 vid=vid-1:f =252:LOCATE 11,24:P 
EN 1:PRINT USING't*¡vid:!F vid=0 TH 
EN 2160 ELSE iort=1:EI:EVERY 3*9 60 
31TB 1320: RETURN 


2330 CALL IBCA7:SDUND 1,0,50,7,1,,3 
0:6DSUB 2280:x=ix:y=iy:GOTO 1020 
2Í40 1 PINTA COLUMNA 
2350 EOR ¡ = 1 TO nu:q(í)= 2 Escn, i*3): 
¥(i)=z(5cn,lnt3):wl(¡)=z(scn,2t¡t3 
):RESTORE 2350:FÜR t=q(i)t32-32 TO 
q i > 32 4 STEP 4 

2360 READ a\PLOT t ,350 ,a-.DRAWR 0,-v 
(i)116+80:DRAHR 0,-wl(i)H6-64,0:DR 
AH t,66,A:NEXT 1, i iREDJRN 
2370 DATA 11,1,12,12,1,1,11,15 
2380 1 NUEVE RADAR 

2390 uc=uc+i-.IF uc>11 THEN uc=0:S0U 
ND 2,90,5,6 

2400 v(tq)=v(tq)tl:IF v(tq)>6 THEN 
v(tq'=l 

2410 PEN 13:PRINT CHR$f248tv(tq)>■• R 
ETURN 

2420 1 PINTA LLAHA 

2430 LOCATE 1,1:S0UN0 2,90,50,4,1,5 
, 15:PRINT CHPiE22)* 1":FOR t=3*(m=9 
)t3 TO r:PEN 8 

2440 LOCATE t p-PPINT CHR1(246)CHR| 
(8);:PEH 13:PRINT CHR*(245):NEXTiPR 
INT CHRM22)*0‘:RETURN 
2450 1 CUBOS HORIZONTAL 

2460 FOR j=hhl TO hh2 STEP 4:CALL l 
AOOO, l,4,j,l82ritINT(RNDi2)*32:NEXT 
■,RETURN 

2470 1 CUBOS VERTICAL 

2480 EOR j=vvl TO w2 STEP 80:CALL 
6A000, 1,4, j, 482PI t-I NT (PNDtl) *32: NEX 
T'.PETUFN 

2490 ' LEE DATOS 

2500 5u»= O hn= til* 10 EOR t= 1 TOn d 
t 

2510 READ a: IF a>255 THEN checfc=a:I 

F checkOsu» THEN 2550 ELSE su«=0:l 

in=lin+!0:60T0 2540 

2520 IT n)i307F ANO nU80EB THEN a~- 

at20 

2530 PURE n,a:n=n*l:su«=su«ta 
2540 NEXT:RETURN 

2550 flODE liPRINT'Error en la linea 
■ ¡ 1 in:END 

2560 ' SCROLL 

2570 FOR 1=1 TO 4-.L0CATEI2,19,21:PR 
1NTI2,* ":PLOT RNDt500t64,RNDt40t70 
,RND * 15:POR p=l TO 260:NEXT p,t:PEN 
1:LOCATE 11-LENta»)/2,21:PRINT al: 
RETURN 

2580 DATA Para otra vez,5e i 

as rápido 11 ,, 

2590 DATA ,,,No ha estado aal,,Pero 
. A quien,le iiporta,un basurero la 
s,o leños 2, 

2600 DATA ,fara coíenzar,pulsa una 
tecla,,,,,STAR SORDTUM,,Una gran av 
enturajHortero-Spacial, "Creada por 
:“,,Eduardo,Fuentetaja.,, 

2610 DATA ,,‘Tu «ision ¡'.Salvar el 
.planeta basurero,STAR SDRDTUrl,del 
teiible,Nagnus Por Rus,,, 

2620 OATA Para ello debes,encontrar 
los,tres acídulos,de tu nave,y asi 
ensanblar,el Thorpedo,el ana defin 
itiva,,Unica for»a de,superar el ul 
tino,obstáculo.,,,, 
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Recorta y envía rápidamente 


LO MAS ESPECIAL 
DE AMSTRAD 


Historia de la 
Informática. 
Cómo trabaja 
un 

programador. 
Todos los 
comandos rsx. 
La informática 
en casa. Los 
mejores 
superjuegos 
del mercado. 



Especial 
Juegos: Pokes 
para todos. Lo 
mejor del 
mercado en 
joystick. 

Juega con 
Forth. Serie 
oro: Juego de 
ajedrez. 


Todas las 

impresoras del 

mercado. 

Software 

integrado: 

Fidicom, un 

paquete 

enteramente 

profesional. 

Paginación de 

memoria. 

Inteligencia 

artificial. 


Robótica. La 
segunda 
revolución de 
la informática. 
Forth, la 
sustitución del 
código 
máquina. El 
juego de la 
vida. El 
mundo de los 
Plotters. 


el cupón de suscripción 



-i 


THHD 


¿¿y* 


Desvelamos 
los secretos 
de los mejores 
juegos de 
Amstrad 
Animator, un 
programa 
apasionante. 
CAD/CAM, lo 
mejor del 
software 
nacional. 



encartado en el interior de la revista (no necesita franqueo). 
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¡¡RECUERDE!! 

Una mala elección a la hora de comprar el programa para su ordenador puede hacerle pasar más de 
un mal rato. 

LA SOLUCION 

Comprar un programa GROTUR de fácil uso y que no le teme A LOS CORTES DE LUZ. 

Nuestra ya larga experiencia en la realización de PROGRAMAS DE GESTION Y PROFESIONALES 
nos ha llevado a disponer de uno de los mayores repertorios de aplicaciones informáticas del pais, 
puesto a su disposición para facilitarle su trabajo sin exigirle una gran inversión. 
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UTILIDADES 


Es de todos 
conocido la forma 
en la que los CPC 
rellenan áreas de 
color, mediante la 
instrucción fill. 

La rutina que 
presentamos sofistica 
al máximo estas 
posibilidades 
permitiendo rellenar 
áreas de pequeños 
dibujos, o patterns, 
consiguiéndose un 
golpe de efecto 
bastante explosivo. 




ISENO DE TRAMA 



L a falta de un orden fill , que 
permita llenar un área 
cerrada con color en la 
pantalla, ha causado la aparición 
de innumerables rutinas para el 
464 capaces de llevarlo a cabo. 

Sin embargo, la gran mayoría de 
ellas no manejan más que un solo 
color, desperdiciando claramente 
las posibilidades del ordenador. 

La rutina que presentamos en 
este artículo nos va a permitir, 
por fin, poner algo de vida en 
nuestros gráficos. Es capaz de 
rellenar un área, cualquier área, 
con una trama de color como 
fondo diseñada por nosotros 
mismos. Los resultados obtenidos 
son tales, que sin duda pasará a 
formar parte de nuestro arsenal 
de herramientas para crear 
gráficos en un lugar de honor. 

Teclee, salve el Programa 
Cargador y ejecútelo. Mueva el 
cursor gráfico a un punto interior 
del área que desea llenar con la 
trama (usando la orden Move) y 
teclee de nuevo: 

CALL &9000,pw,pd, @pat$ 


donde pw es la anchura de la 
trama en pixels, pd su 
profundidad y pat$ contiene la 
descripción de la trama como se 
detalla más adelante. En el caso 
del 664 y 6128, hay que modificar 
ligeramente la línea de programa 
anterior: 

CALL &9000,pw,pd,pat$ 
o incluso 

CALL &9000,2,2,“1221” 

El llenado comienza en la 
posición del cursor gráfico (orden 
Move). La primera cosa que la 
rutina hace es mirar cuál es el 
color de la pantalla en ese punto. 
Acto seguido, se cambiará el color 
de todos los puntos conectados 
vertical y horizontalmente con él, 
hasta que se encuentre otro color 
distinto (de ahí la importancia de 
que el área esté cerrada con un 
solo color). 

La descripción de la trama se 
atesora en la variable pat$. 

Imagine un bloque rectangular 
compuesto de puntos individuales 
(pixels) cada uno con un número 
propio de tinta. 


En modo 0 el valor máximo de 
éste es 15, de 0 a 3 en modo 1 y 
de 0 a 1 en modo 2. 

Supongamos ahora que nuestra 
trama tiene 2 pixels de ancho por 
3 de alto. Para describirlos de 
forma que una rutina en Lenguaje 
Máquina lo «entienda», un 
método razonable parece ser 
hacerlo por filas consecutivas, es 
decir: en la primera fila, los 
números de tinta de los dos pixels 
superiores del bloque de 2x3, en 
la segunda los segundos, etc. Esto 
nos da una lista de 6 números de 
tinta. Usando la paleta de color 
por defecto que el Amstrad tiene 
cuando se enciende, si la fila 
superior era amarilla, roja, la 
segunda roja, azul, y la tercera 
amarilla, azul, pat$ contendn'a la 
secuencia de números “133212”. 
Al leerla, el ordenador y nosotros 
debemos entender, leyendo de 
izquierda a derecha que: PEN 1 es 
amarillo, PEN 3 es rojo, PEN 3 
de nuevo, PEN 2 es azul, PEN 1 
es amarillo y PEN 2 es azul. 

En modo 0, para codificar los 






















UTILIDADES 


colores de 10 a 15, hay que usar 
la notación hexadecimal: A vale 
10, B 11 y así hasta F, 15. 

La línea de programa que 
habría que inyectarle al Amstrad 
sería, pues: 

pat$ = “133212”:CALL 
&9000,2,3, @pat$ 

Llegados a este punto, no es 
muy improbable que el lector esté 
estremecido de horror, pensando 
en la cantidad de trabajo «sucio» 
que va a tener que llevar a acabo: 
decodificar de cabeza números de 
tinta, notación hexadecimal, 
¡cielos, no! 

Bien, ha habido suerte. Además 
de la rutina de llenado de áreas, 
tenemos un editor de tramas 
(Programa Editor ), que realizará 
todo lo anterior automáticamente 
(suspiro de alivio incontrolable). 

Además, es muy sencillo de 
utilizar. 

Lo primero que el editor de 
tramas pregunta es el modo de 
pantalla. Hay que responder 0,1 ó 
2. Después, la pantalla se borrará, 
apareciendo un cursor dentro de 


un rectángulo que se puede mover 
con las teclas del cursor. Pulsando 
la barra espaciadora, se dibujará 
un punto en el color elegido. La 
tecla Shi/t sirve para desplazarse 
por la paleta de colores. 

Si la trama que va a crear es 
más pequeña que el rectángulo de 
contención, asegúrese de comenzar 
a dibujarla en la esquina superior 
izquierda, moviéndose hacia la 
derecha, luego hacia abajo. 

La tecla Tab significa fin de 
edición. Lo siguiente que hay que 
hacer es eliminar el espacio que 
sobra si la trama es menor que el 
rectángulo. Para ello, aparece una 
«cruz» que se mueve con las 
teclas del cursor. 

Al pulsar de nuevo Tab, el 
programa pregunta cómo se 
llamará la variable donde se va a 
guardar toda la información. 
Recuerde añadir el signo “$” al 
final de la misma, algo así como 
“tramaS”. La razón de todo esto 
es que el editor va a crear un 
programa Basic que luego se 
«mergeará» con el programa que 


CARGADOR 

10 REM CARGADOR PARA USAR 
20 REM PATTERN 
30 REM AMSTRAD PERSONAL 

40 REM.. 

50 IF HIMEM<Í93C6 THEN PRINT "LO SIENT 
0. NO HAY BASTANTE MEMORIA. DESACTIVE 
ALGUNA ROM" 

60 MEMORY íc8FFF: ln=150 
70 F0R adnfcSOOO T0 R9188 STEP 13 
BO READ byteí:chk=0 
90 F0R i=0 T0 12 

100 v=VAL( , i , tHID*(byteí l i*2+l l 2)) 

110 P0KE adr+i,v:chk=chk+v 
120 NEXT 

130 IF chk<>VAL(”í¡"+RI6HT$(byteí,3)) T 
HEN PRINT "ERROR EN LINEA";ln:3T0P 
140 1n=ln+10:NEXT 

150 DATA DS03C032C09132C491DD7E0432834 
160 DATA BE91DD7E0232C291DD6E00DD666BF 
170 DATA, 01E5DDE17E4787C3DD6E01DD66777 
180 DATA 0211CB917EFE3A3B04CBAFD6075B5 
190 DATA D630CD2CBC12132310ED21C79257A 
200 DATA 22C691DD21B791CDC6BBCDF0BB885 
210 DATA CD2CBCDD7700CDC688CD118CF57E6 
220 DATA C-CB291F1F5DCB291F1DCB291CB9EF 
230 DATA 3CC81DCD1DBCDDCB01C6DDCB046E5 
240 DATA C6FD21BE913EFF329691CB01306C5 
250 DATA 0128CD9591CD8C9128F3E5CD296FF 
260 DATA BC22B991E1E5CD268C22BC91E17ED 


WHI'H! I J'j 

270 DATA FD21BE913E01C09791C80930! 15B6 
280 DATA 23E52AB9912322B9912ABC91235A5 
290 DATA 22BC91E1CD8C91C25E917CE6C030D 
300 DATA EEC0C0E521C891ED5BBE913AC4862 
310 DATA 91478728031910FDED5BC09119592 
320 DATA 7EE1A14779EEFFA6B077E53AC4B5D 
330 DATA 91F5F53EFFFD21C291CD9791FD918 
340 DATA 21B891CD1B91F132C4913E01FD694 
350 DATA 21C291CD9791FD21BB91CD1891749 
360 DATA F1320491Eí18B4FD6E01FD66026C6 
370 DATA CD8C912305FDCB0OC6C9FDC80O736 
3B0 DATA 46FDCB00B6C8FD2AC691113A6C691 
390 DATA FDE5FD19FDE1D8FD7500FD7401892 
400 DATA FD71023AC491FD77033AC091FD6FE 
410 DATA 7704110500F019FD22C69ÍC92A510 
420 DATA C691E5FDE111CB92AFED52DB1185C 
430 DATA F8FFFD19FD22C691FD6E00FD66854 
440 DATA 01FD4E02FD7E0332C49ÍFD7E045D2 
450 DATA 32C031C36E3079A64779DDA600&A6 
460 DATA A8C93EOOFD8602CB7F2808FD7E629 
470 DATA 003DFD7702C9FD7702FD9600D865D 
480 DATA FD360200C9C83ACB1BC90000004B2 


PROGRAMA 

EDITOR 

10 REM EDITOR DE PATTERN 
20 REM AMSTRAD PERSONAL 
30 REM' MARZO 13É 



usted haga, mediante la orden 
Basic 

MERGE “nombre” 

La rutina de llenado es muy 
rápida porque trata la memoria de 


40 REM — - . 

50 DEFINT a-ziOPENOUrdumitiy":MEMORY 
HIMEM-1¡CLOSEOUT 

60 md=-l:WHILE md<0 0R md>2:M0DE 1:1 
NPUT "Mcde: *,«dtHENO 
70 M0DE md: xs=3-md-((*d=0):xo=4*xs‘.nc 
=2 A ‘(xo/4)-l:cp=2:ncp=l:ox=7:x=7:oy=7 
:y=7:DIM mat( 15,15), cols(nc) 

80 F0R i^O T0 nc:READ cols(i)¡INK i, 
cols(i):PEN i¡PRINT CHfti(140 Y ;NFX T 
90 DATA 13,0,2,6,10,11,12,13,14,13.1 
6,17,10,19,20,21 

100 0RIGIN 200,100:PL0T 0,-4:DRAWR 8 

4*xs,0,l:DRAHR 0,160:DRAWR -B4*xs,0: 

DRAWR 0,-160 

110 WHILE INKEY(68)<>0 

120 IF ncpOtp THEN LOCATE 2,cp + l:PR 

INT CHR$(32):PEN 1:LOCATE 2,ncp+l:PR 

INT "<":cp-ncp 

130 PL0T 1.25,yfl0,-(mat(x,y)=0 
):DRAWR xo,-3:M0VER 0,3:DRAWR -xo,-8 
¡PLOT ox*xo* 1.25,oy*10,mat (ox,oy) •,F0 
R i=0 T0 4:DRAWR xo,0:M0VER -xo,-2:N 
EH 

140 IF INKEY(47)=0 THEN iat(x,y)=cp: 
PLOT x*xs,200ty*2,iiiat(x,y) 

150 ncp-cp + (INIÍEY(0)=32)-(INKEY(2)=3 
2) AND nc 
160 ox=x:oy r y 

170 *=ox+(INKEY(8)=0)-UNKEY(l)=0):I 
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La utilización 
del editor permite 
aprovechar al 
máximo las nuevas 
capacidades 
gráficas que 
otorga la rutina 
al CPC. 


pantalla directamente, ignorando 
al firmware. Por tanto, al no 
estar protegida por éste, deben 
cumpiirse una serie de condiciones 
para aprovecharla bien. 


F x=0 THEN *=15 ELSE IF *=16 THEN x= 
1 

180 y=oy+<INKEY<2)=0)-(INKEY(0)=0):I 
F y=0 THEN y=15 ELSE IF y=16 THEN y= 
1 

190 HENO 

200 LOCATE 1,25:PRINT"Define bloque' 
i 

210 lx=15:ly=15:PRINT CHRÍ(23) CHR*( 

1 ) 

220 HHILE INKEY(68)=0:HEND:olx=200:1 
*=15:oly=200:ly=15:G0SUB 430 
230 HHILE INKEY(68K>0:olx=h:oly=ly 
240 1x=olx-(INKEY <1)=0) + (INKEY(8)=0) 
sIF lx=0 THEN lx=15 ELSE IF lx=16 TH 
EN lx=l 

250 ly=oly-( INKEY(2)=0) + (INKEY(0)=0) 
&IF 1 y=0 THEN ly=15 ELSE IF ly=16 TH 
EN 1y=1 
260 GQSU8 430 

270 HEND:PRINT CHRÍ(23) CHRI(O) 

230 REN ESCRIBIR A DISCO 
290 F0R j=l T0 1 y:F0R i=l T0 lx:patí 
=pat$fHEXt(«at(i,16-j)):NEXT:NEXT 
300 MODE 2:WHILE INKEY*<>":HEND 
310 INPUT 'COMO QUIERE LLAMAR A LA C 
ADENA?;’,5$:IF LEN(s*)=0 THEN 310 
320 INPUT 'Numero de 1 inea:',1n$ 

330 INPUT "Nombre de fichero:",f$ 

340 0PEN0UT fí 


Condiciones de uso 
de la rutina de llenado 

1) El origen de los gráficos 
debe ser 0,0 (orden Origirí). 

2) La rutina funciona en 
cualquier modo de pantalla, pero 
sólo debe usarse cuando no se 
naya realizado ningún scroll, bien 
desde que se encendió el CPC, 
bien desde la última orden Mode. 

3) No se comprueba si la 
acción tiene lugar dentro de la 
pantalla o no. La rutina supone 
que va a comenzar dentro de un 
área finita cerrada totalmente por 
un solo color. Es responsabilidad 
del programador asegurarse de 
ello. 

4) Puede haber problemas si el 
color de fondo aparece en la 
trama. Intente evitarlo. 

Si no está muy seguro de haber 
cumplido con exactitud la regla 4, 
salve TODO en disco o cinta 
antes de ejecutar. La rutina de 
llenado no comprueba si se pulsa 
la tecla Esc u otra. No se 
detendrá hasta que termine o el 


350 line0$=ln$+' '+sí+*=’+CHR*(34) 
360 IF LEN(line0mi+LEN(pat$)<255 T 
HEN 1 ine0$=line0$+pat $+CHRS(34):GOTO 
390 

370 1 i nel$=LEFT$(ln$,LENÜnt)-!)+"!" 
+* "+s$t-’=’+s$+’+'tCHR$(34)+RIGHT$(p 
at$,100HCHR$<34) 

380 1ine0*=lineO$+LEFT$<patt, LEN(pat 
Í)-100)+CHR$(34) 

390 PRINTI9,lineO$:PRINT I9,lirtelí 
400 PRINT#9,LEFTÍ(ln$,LEN(ln$)-l)+'2 
REM width='LX'height="LY 
410 CL0SE0UT:END 
420 REM 

430 H0VE(olx+1)*xo*í.25,-4:DRAHR 0,1 
60,1:NOVE (1x+I)*xo*l.25,-4:DRAWR 0, 
160,1 

440 M0VE 0,(15-oly)U0:DRAHR xo*21,0 
:NOVE 0,(15-1 y)* 10:DRAWR xot21,0 
500 RETURN 


DEMOSTRACIÓN 

10 REM REALIZA TRAMAS ALEATORIAS 
20 REM Cambiando la linea 50 por GOS 
UB 210 se obtendrán distintos result 
ados 

30 RAND0MIZE TIME 


CPC se «cuelgue». El precio de la 
velocidad. 

Tenga cuidado si usa una trama 
en modo 1 creada en modo 0. Si 
algunos de los colores no son 
legales en modo 1, puede haber 
también problemas (de hecho, 
HABRÁ problemas). 

Por último, unos pocos trucos: 

1) Es posible usar bloques de 
un solo pixel, con lo cual 
revertimos a las rutinas //// 
estándar, de este modo 

a$ = “l”:CALL &9000.1,1, @a$ 

2) En los modos 1 y 2, se 
pueden sacar colores extra 
alternando dos tintas tales como 
0,1 en la fila superior de la trama 
y 1,0 en la segunda. Pero sólo 
algunas combinaciones darán 
resultados visuales aceptables. 
Experimente. 

3) Al diseñar una trama, si se 

es cuidadoso se puede evitar el 
efecto de «regularidad», haciendo 
que un extremo sea la 
continuación de lo que ocurre en 
el anterior. ■ 


40 MODE 0 
50 PAPER 0:CLB 
60 G0SUB 140 

70 M0VE 100,100:DRAWR 200,0:DRAHR 0, 
200:DRAHR -200,0:DRAWR 0,-200 
80 NOVE 150,150 
90 REM width= 2 height= 12 
100 CALL 1,9000, 10,10,traía» 

110 AÍ=":HHILE Af=":AÍ=INKEY$:HEND 
120 IF A$=CHR$(13) THEN GOTO 320 
130 GOTO 50 

140 REM FORMACION DE TRAMAS UNO 

150 tr 

169 F0R n=l T0 100 STEP 2 

170 t$= HEXtü+RNDiH) 

180 trama$=tí+trama$+t$ 

190 NEXT n 

200 RETURN 

210 REM FORMACION DE TRAMAS DOS 
220 traj,a$=" 

230 F0R n=l T0 10 
240 LIN$=" 

250 F0R *=1 T0 10 STEP 2 
260 t$= HEXÍU+RNDH4) 

270 LINt=t$+LINt+t$ 

280 NEXT n 

290 traaaí=LIN$+tra»iaítLlNt 
300 NEXT n 
310 RETURN 

320 CLS:PRINT trasiaí 
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GESTIÓN CPC 

GESTIÓN INTEGRADA PARA CPC «) 

Contabilidad 


E ste es el primero de los tres 
programas, que sirve para 
llevar una sencilla contabilidad en 
una pequeña o mediana empresa. 

Las diez opciones de las que 
consta el menú principal son las 
siguientes: 

1. Cargar fichero. Esta opción 
carga del disco el fichero 
nombre.Con que contiene los 
apuntes de la contabilidad y que 
previamente han sido generados. 

2. Salvar fichero. Salva en 
disco el fichero con los apuntes 
generados en la opción 3. 

3. Introducir datos. Es 
necesario haber definido las 
subcuentas y cuentas (opciones 8 
y 9, respectivamente) antes de 
utilizar esta opción, en caso 
contrario aparecerá un mensaje de 
aviso en pantalla. 

Si no se ha cargado el fichero 
en la opción 1, nos pregunta el 
número con el que queremos 
empezar los apuntes y a 
continuación el programa nos pide 
el nombre de la empresa. 

Después se nos dan dos 
posibilidades: 

a. Introducir datos por teclado. 
Se nos pedirá el concepto, fecha, 
subcuenta, importe y si se trata de 
ingreso o gasto. Si en concepto 
pulsamos Enter sin haber escrito 
nada, volveremos al menú. 

b. Cargar datos generados por 
el programa facturas. En este caso 
sólo habremos de introducir la 
fecha y la subcuenta, porque el 
resto de los datos los introduce el 
programa directamente a través 
del fichero nombre.F14 que 
después se borra 
automáticamente. 

4. Modificar apuntes. Se nos 
pide el número de la ficha que 
queremos modificar y aparece ésta 
en pantalla con sus campos 
numerados y elegiremos el que 
queremos modificar. Una vez 
modificado se nos pregunta si 
queremos modificar algún otro 


Todo el que posea un CPC 
y desee aplicarlo a la 
gestión, necesita tres cosas: 
contabilidad, facturación y 
recibos. Este programa las 
reúne en un integrado capaz 
de compartir datos entre 
todos sus módulos. 

Por Javier García 

campo, en caso contrario retorna 
al menú. 

5. Diario. Emite un listado por 
pantalla o por impresora de todos 
los movimientos efectuados desde 
la fecha, que se nos pregunta al 
comienzo de la opción. En caso 
de movimientos anteriores a la 
fecha se nos presentará el saldo 
anterior. 

6. Balance. Emite un listado 
por pantalla o por impresora de 
todos los movimientos habidos 
desde el principio del fichero y en 
cada cuenta por separado. 

7. Listado por cuentas. Se nos 
pregunta el número de cuenta del 


que se quieren ver, por pantalla o 
impresora, los movimientos 
habidos hasta el momento. 

8. Definir subcuentas. Se 
pueden ver o crear. En el primer 
caso se puede realizar por 
impresora o por pantalla. En el 
segundo se nos preguntará por el 
nombre de cada una de las 16 
subcuentas (A-P) y la cuenta a la 
que queremos asignarla. 

9. Definir cuentas. Igual que en 
la opción anterior se trabaja en 
ésta, sólo que con las cuentas. Si 
se quiere inutilizar o borrar 
alguna cuenta bastará con escribir 
un asterisco (*). 

10. Abandonar programa. En 
esta opción aparece un submenú 
con 4 opciones: 

1. Accede directamente al 
programa de facturación. 

2. Accede al programa de 
recibos. 

3. Borra el programa en 
memoria. 

4. Vuelve al menú 
principal. 

NOTA 1: Este programa consta 
de tres partes. Por tanto, no 
funcionará al completo hasta que 
estén reunidas. 
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10 MÚDE 2:60SUB 1830 
i 20 A=FRE Í0) 

30 ON ERROR GOTO 2180:EHP=1:fi=1:P= 
200:0111 CONCEPTO!(P),DIA$(P),NES!(P 
),ANOí(P),CUENTA$(P), INPORTE(P), 18$ 
(P),CUEN!(16),pert!<16),A(P),B(P),N 
$( 12 ) 

40 FOR 1=1 TO 12:READ h$(I):NE1T:DA 
TA ENERO,FEBRERO,MARZO,ABRIL,HAYO,J 
UNIO, JULIO, AGOSTO,SETIEH8RE,OCTUBRE 
,NOVIEMBRE,DICIEMBRE 
50 CLS:CLS #2:L0CATE 28,6:PRINT CHR 
$(24);CHR!(150)¡STRING!(24, CHR$(154 
));CHR$( 156);¡LOCATE 28,7:PRINT CHR 
$(149); ‘SESTIQN DE CONTABILIDAD-;C 
HR$(149):LOCATE 28,8:PRINT CHR$(147 
) ¡STRIN8$(24 ,CHR$( 154)) •,CHR$( 153) ‘,C 
HR* (24) 

60 LOCATE 28,10: PRINT "PR06RANA POR 
JAVIER GARCIA 1 

70 LOCATE 34,12:PRINT 'MADRID - 198 
7*:PLOT 195,330:DRAUR 249,0:DRAUR O 
,-133:DRAUR -249.0-.DRAWR 0,133¡PLOT 
192.335.-DRAWR 256,0:DRAUR 0,-143:0 
RAUR -256,0:DRAUR O,143:CALL ABB18 
80 CLS 

90 CLS I2:L0CATE #2,24,1:PRINT 12,’ 
DIA DE EJECUCION:»:PLOT 143+192,112 
>16:DRAUR 57,0:DRAUR 0,-17:DRAUR -5 
7,0¡DRAUR 0,17:0=2:X=43:Y*l:X1=X:*2 
=49:6QSUB 1B0:IF ALFA$=" OR LEN(AL 
FA$)<1 THEN 90 ELSE F$=ALFA$:d$=LEF 
T!(f!,2):YEAR$=RIGHTl(f$,2):H0NI=HI 
D$(f$,3,2) 

100 IF D$>’3r OR NDN$>'12' OR 0!<" 
01’ OR NONK'Ol" THEN 90 ELSE HOI=N 
$(VA> (MOHO) 

110 CLS 13:CLS «2-.CLS ll:CLS:GOSUB 
270 

120 GOSUB 510:ON C>1 GOSUB 2230,560 
,620,730,920,1870,1490,2330,1120,13 
00 

130 GOTO 110 
140 END 

^ 150 REN tlHIHHIHI 

160 REN «i INPUT »»» 

170 REN HIHHHHII 
1B0 alfa$=” 

190 LOCATE to,x,y:PRINT lo,CHR$(143 
i ):LOCATE lo,x,y:PRINT lo," ".‘a$=UPP 

ER$(INKEY$): IF a!=" THEN 190 
200 IF a$=CHR$(13) THEN RETURN 
210 IF a$=CHR$(127) AND x>xl THEN x 
=x-l¡alfa$=NIDÍ(ilfa»,l,LEN(alfa$)- 
1):60T0 190:ELSE IF a$=CHR$(127) AN 
D x=x1 THEN alfa$=NID$(alfa$í(,LEN( 
alfa$)):GOTO 190 

220 LOCATE to,x,y:PRINT lo,a$:IF x= 
x2 THEN 190 

230 X--X>1:ALFA!=ALFA$>A$:60T0 190 
240 REN mffiiiHH 
250 REN »« NENU >i> 

260 REN «hhihh 
270 PRINT II,STRING$(37,"=*);" NENU 
"¡STRIN8K37, ■=■); 

280 PRINT 11,"1.CARGAR FICHERO 2 


.SALVAR FICHERO 3, INTRODUCIR DAT 
OS 4.MODIFICAR ASIENTQS5.DIARIO 

6.BALANCE 7.LIST 

. POR CUENTAS 8.DEFINIR SUB-CTAS. 9 
.DEFINIR CUENTAS 0.ABANDONA PROGR 
AHA , ;STRING$<80, , = , )¡ 

230 RETURN 

300 REN mttittttitmiiii 
310 REN u DIBUJAR FICHA i> 

320 REN nmmmmmti 
330 LOCATE 30,3:PRINT 'No ASIENTO 1 : 
LOCATE 20,5:PRINT “CONCEPTO 1 :LOCATE 
20,7.-PRINT "FECHA 1 ;LOCATE 20, 9:PRI 
NT "SUB-CTA.-¡LOCATE 20,11:PRINT "I 
MPORTE-:LOCATE 20,13:PRINT "I / G 1 

340 PLOT 319,368',DRAUR 25,0‘.0RAUR O 
,-17:DRAUR -25,0:DRAUR 0,17: 

350 PLOT 223,336:DRAUR 202,0:DRAUR 
0,-17:DRAUR -202,0¡DRAUR 0,17: 

360 PLOT 223,304¡DRAUR 59,0:DRAUR O 
,-17:DRAWR -59,0¡DRAUR 0,17: 

370 PLOT 223,272:DRAUR 17,0:DRAUR O 
,-17:0RAUR -17,0:DRAUR 0,17: 

380 PLOT 223,240:DRAUR 8!,0:0RAUR O 
,-17:DRAUR -81,0,-DRAUR 0,17: 

390 PLOT 223,208:DRAUR 17,0:DRAUR O 
,-17:DRAUR -17,0:DRAUR 0,17: 

400 PLOT 135,384:DRAUR 320,0:DRAUR 
O,-216:DRAUR -320,0:DRAHR 0,216 
410 PLOT 130,389\DRAUR 330 ^3-J)RAWR 
O,-226¡DRAUR -330,0;DRAUR 0,226 
420 RETURN 

430 REN miHimmii 
440 REN *» CALL bbl8 *♦ 

450 REN Himiimmi 

460 CLS 12:LOCATE 12,23,1:PRINT 12, 

"PULSE UNA TECLA PARA CONTINUAR":CA 

LL IBB18:RETURN 

470 RETURN 

480 REN «Hf*Mm«**t**f*t 
490 REN »» DETECTA NUMEROS » 

500 REN HimiiHiKKiiim 
510 C$=INKEYI:IF Cl("0" OR C!>"9" T 
HEN 510 

520 C=VAL(C$):RETURN 
530 REN mimmiHiHii 
540 REH *» CAR6AR DATOS » 

550 REN HHIHHIIIWIH 
560 CLS II:CLS I2.-PRINT 12,'NOMBRE 
DEL FICHERO A CARGAR:": 0=2; 1=30:Y=1 
¡n=*:X2=38:G0SU8 180:N0N8RE$=ALFA$ 

:IF noibre!="" THEN 560 
570 H$=N0MBRE$.CON 1 :OPENIN H$:INP 
UT 19,FI,EMP,CLl$:FOR I=ENP TO FI:I 
NPUT 19, CONCEPTOKI), DI A$ (I), NESKI 
),ANO$(I),CUENTA$(I), INPORTE(I),IG$ 
(I):NEXT:FOR 1=1 TO 16:INPUT I9,CUE 
N$(i),PERT$(i):NE(T:FOR 1=0 TO 9:IN 
PÜT I9,SCUEN$(I) '.NEIT'.CLOSEIN 
580 60SUB 460:RETURN 
590 REN HHHiilIHHIIH 
600 REN i* SALVAR DATOS » 

610 REN tmiiHumiH» 

620 GOSUB 690-.CLS ll-.PRINT 12,'NDNB 
RE DEL FICHERO A GRABAR‘,";0=2',X=30: 


Y=1:X1=X:X2=3B;S0SUB 180:NDNBRE$=AL 
FA$ 

630 H$=N0NBRE$>'.CON 1 :1 ERA,H$:OPENO 
UT H$:URITE I9,FI,EMP,CLI$:FOR I=EN 
P TO FIiURITE 19,CONCEPTOKI),DIA$( 
I),NES$(I),ANO$(I),CUENTA$(I), INPOR 
TE(I),I6$(I)‘.NEXT:F0R 1=1 TO 16:URI 
TE I9,CUEN$(¡),PERT$ti):NEXT:FOR 1= 
O TO 9:URITE 19,SCUEN$(I):NEXT:CLOS 
EOUT 

640 CLS 12:PRINT 12,"OPERACION CONC 
LUIDA”; 

650 CLS *2:PRINT 12,"DESEA BDRRAR D 
E LA MENORIA EL FICHERO QUE HA 6RAB 
ADO (S/N)-:0=2:1=60:Y=1:11=1:12=61: 
GOSUB 180:IF ALFA$= 1 S 1 THEN RUN ELS 
E IF ALFAIO'N" THEN 650 ELSE GOSUB 
460;RETURN 

660 REN iiiimwiiiiwiiiiii 
670 REN n NO EXISTE FICHERO » 

680 REN h»»»»«»»h»i*m*»ih»» 

630 IF FI=1 THEN CLS II¡PRINT 12, 1 
NO EXISTEN DATOS EN MENORIA PARA IR 
ABAJAR. PULSE UNA TECLA PARA VOLVER 
AL NENU':CALL SBB18:G0TD 110:ELSE 
RETURN 
700 REN 

710 REN H INTRODUCIR DATOS >» 

720 REN 

730 P=0:F0R 1=1 10 16:IF CUEN$(I)= 1 

I THEN P=P>1 

740 NEXT:IF P=¡6 THEN CLS ll:CLS 12 
•.PRINT 12,* HAY SUE GENERAR LA 
S CUENTAS Y SUBCUENTAS ANTES DE ENP 
EZAR A TRABAJAR":CALL LBB1B:RETURN 
750 CLS II:IF eip=fi THEN CLS I2:PR 
¡NT 12,'NUMERO DE ARCHIVO PARA INIC 
10: ":0=2:X=31:Y=1:X!=X;X2=34:G0SUB 
180:IF VAL(alfa$)=0 THEN 730 ELSE 
ENP=VAL(ALF A$):FI=ENP: 

760 IF e.p=Ii THEN CLS tl:CLS I2:PR 
INI 12,‘NOMBRE OE LA EMPRESA:":o=2: 
x=23:y=l:xl=x:x2=B0:G0SU8 lB0:di$= 
alfa! 

770 CLS 12:PRINT *2,CHR*(24)*I"CHR$ 
(24)’NTRODUCES DATOS 0 , CHR$(24) 1 C 1 
CHR$(24) 1 AR6AS LOS GENERADOS EN FAC 
TURAS (I/C):":0=2:1=60:Y=1:X1=X:X2= 
62:GOSUB 180:IF ALFA$<>"I’ THEN 263 
O 

780 GOSUB 2590 

730 GOSUB 330'iüCATE 41 ^-.PRINT USI 
NG "III 1 ;(i:CLS 12 
800 o=0:x=29:y=5:xl=x:x2=53‘.GOSUB 1 
80:IF alla$=" THEN 110:ELSE concep 
lo!(fi)=alfa! 

B10 o=0:x=29:y=7:xl=x:x2=35: GOSUB 1 
80: IF al fa$=” THEN 810 ELSE IF VAL 
(alfa$)=0 THEN B10 ELSE IF LENÍALFA 
1)06 THEN 810 ELSE lecha$=alfa$:di 
a$(fi)=LEFTI(fecha$,2):ano!(li)=RIG 
HT$(fecha$,2):ies$(fi)=NlD$(fecha$, 
3,2) 

820 IF dia$(fi)>"31" OR dialíüK'O 

I I OR •es$(fi)<"01" OR «es$(fi)>"12 


1 THEN 810 

830 o=0:x=29:y=9;xl=x:x2=30:GOSUB 1 
80: IF al fa$= 11 OR ALFAICA" OR ALFA 
$>"P" THEN 830 ELSE cuenta!(fi)=alf 
a$ 

840 IF CUEN$(ASC(CUENTA!(FI))-64)=" 
■ THEN 830 

850 P=ASC(CUENTA$ (FI)): P=P-64: LOCAT 
E 32,9:PRINT 'CIA 1 ;SCUEN*(VAL(PERT 
$(P)1) 

860 o=0;x=29:y=ll:xl=x:x2=3B\60SUB 
180:IF alfa$= 11 THEN 860 ELSE IF VA 
L(alfa$)=0 THEN 860 ELSE uportelfi 
)=VAL(alfa$):IF í«portelfi)>9999999 
9 THEN 860 

870 o=0:x=29:y=13:xl=x:x2=30:GOSUB 
I80-.IF alf a$=" THEN 870 ELSE IF al 
falO’I" AND alfalO‘6" THEN B70 EL 
SE ig$(fi)=alfa! 

B80 po=FI:GOSUB 1060:<i=fi+1:60SUB 
460:CLS:CLS I2:G0T0 790 
890 REN ainninn«nuH»»m 
900 REN H MODIFICAR ASIENTO » 

910 REN iimmimimmim 
920 60SUB 690:CLS ll:CLS 12 
330 CLS l2: :r :NT 12,"NUMERO OE ARCH 
IVO A MODIFICAR; 1 :0--2:X--32/Y--l;Xl--X 
:X2=35:60SUB 180: IF VAHALFAIXENP 
OR VAL(alfa$)>f:-l THEN 930 ELSE NU 
N=VAL(ALFA!) 

940 GOSUB 330:10 CAE 4 l? PRINT USI 
N6"illí'NUN‘L0CATE 2? 5'PRINT CONCE 
PTO!(MUN):LOCATE 29,7:PRINT DIA$(NU 
MIMES!(NUN1AN0KNUN):LOCATE 29,9:PR 
INT CUENTA$(NUN):LOCATE 29,ll:PRINT 
USIN6 "llllllltl,";INPORTE(NUN) 

350 LOCATE 29,13.-PRINT IG$(NUN) 

960 LDCATE 10,5.-PRINT "1.... ".-LOCAT 
E 10,7:PRINT "2...."¡LOCATE 10,9:PR 
INT "3...."¡LOCATE 10,11:PRINT "4,, 

.. ".‘LOCATE 10,13,‘PRINT "5...." 

970 CLS I2:PRINT 12,"TECLEE EL NUNE 
RO DE LINEA A MODIFICAR:":x=40:y=l: 
xl=x:x2=43:G0SUB 180: IF alfa!=CHR$< 
13) THEN RETURN ELSE IF ALFA!<"1" O 
R ALFA$>"5" THEN 970 
980 po=nu*:ON VAL(alíal) GOTO 990,1 
000,1020,1030,1040 
990 o=0:x=29:y=5:xl=x:x2=53:G0SUB 1 
80:IF alfa!="“ THEN UO:ELSE concep 
to!(po)=alía*:SOTO 1050 
1000 o=0: x=29‘.y=7‘j< l=x‘j<2=35‘£0SUB 
180:1F alfa$=” THEN 1000 ELSE IF V 
AL(a)fa!)=0 THEN 1000 ELSE IF LEN(A 
LFA$)<>6 THEN 810 ELSE fecha!=alía! 
;día$(po)=LEFTI(fecha$,2):ano!(po)= 
RI6HT*(fecha*,2):«es*(po)=MIDKfech 
a!,3,2) 

1010 IF dia$(po)>"31" DR diaMPOX" 
01" OR «es*(PO)<"01" OR «es$(po)>"l 
2" THEN 1000:ELSE 60T0 1050 
1020 o=0:x=29:y=9:xl=x: x2=30:GOSUB 
180: IF alfa$="" OR ALFAICA" OR ALF 
A!>"P" THEN 1020 ELSE cuenta*(po) =a 
1 fa*:P=ASC(CUENTA*(PO)):GOTO 1050 
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1030 o=0:x=29:y=11:x1=x:*2=3S:80SU8 
180:IF alfat="" TREN 1030 ELSE IF 
VALtalfa*)=0 THEN 1030 ELSE ¡«porte 
Cpo)=VAL(al fat): IF i«porte(po)>9999 
3993 THEN 1030:ELSE 1050 
1040 o=0:x=29:y=13:xl=x:x2=30:60SU8 
180:IF alfat=" THEN 1040:ELSE IF 
alfatO‘1" AND alfa$<>"G* THEN 1040 
ELSE igt(po)=allat:G0SU8 1060:80T0 
1050 

1050 CLS I2:PRINT «2,‘QUIERE NDDIFI 
CAR OTROS CAMPOS (S/N)’:0=2:X=37:Y= 
1: X 1=X:X2=38:S0SU8 180:IF ALFAt=‘S" 
THEN 970 ELSE IF ALFA*=‘N* THEN GO 
SUS 460:J=PO:RETURN:ELSE 60T0 1050 
1060 IF IGt(po)="G" THEN IF INPORTE 
<po)>0 THEN í«porte(po)=-ímporte(po 
);RETURN 

1070 IF IGÍ(po)=‘I‘ THEN IF IMPORTE 
(poKO THEN IMPORTE(po) =-IMP0RTE(po 
):RETURN 
1080 RETURN 


1090 REH iiiiiimmiiiKiiiiiHi 
1100 REN t* DEFINIR SU8-CUENTAS ** 
1110 REN 


1120 CLS lliPRINT 12,'DESEA VER 0 C 
REAR SUB-CUENTASIV/C) ■:0=2:X=3£:Y= 

1:Xt=X:X2=37:GOSUB 180: IF ALEAt="V” 
THEN CLS *2:GOTO 1130 ELSE IF ALFA 
l>"C" THEN CLS #2:GOTO 1150 ELSE CL 
S 12:GOTO 1120 

1130 PRINT 12,‘POR INPRESORA 0 POR 
PANTALLA (I/P) *:0=2:X=36:Y=1:X1=X: 
X2=37:GOSUB 180:IF ALFAt="I" THEN C 
0MP=8 ELSE IF ALFAt="P" THEN C0HP--0 
ELSE CLS #2:GOTO 1130 
1140 FOR 1=65 TO 80;PRINT ICONP,"SU 
8-CTA."CHRÍCI)* : *CHR$(34)jCUENtíT 
-64)¡CHRt(34); STRINGt < 23-LEN C CUEN*( 
1-64)),’ ■);' PERTENECE A LA CUENTA 
*PERT*(1-64): NEXT: GOSUB 460: RETURN 
1150 CLS SI: FOR 1=65 TO 80:CLS 12 
1160 IF CUEN$(I-64)0" GOTO 1200 
1170 LOCATE I2,10,1:PRINT 12,‘NOHBR 
E SUD-CTA.’¡CHRt(1):0=2:1=27:Y=1:X! 
=X:X2=50:GOSUB 180:IF alfa$=‘" THEN 
i=i+l :IF 1(81 THEN GOTO 1170 ELSE 
1220 

1180 CUENt([-64)=ALFAt 

1150 LOCATE #2,52,1:PRINT »2,"PERTE 

"CE A LA CUENTA':0=2:X=74:Y=1 :X 1=X 

: X2=75:GOSUB 180: IF ALFAtCO" OR AL 

FAt>'9" THEN 1190 ELSE PERTí(l-64)= 

ALFA! 

1200 PRINT ‘ SUB-CT A.* CHRt(I) ¡": 
'CHRt(34)jCUENtt 1-64) ¡CHRt(34)¡STR 
IN6t(23-LEN(CUENt(I-64)),‘ ')¡' CUE 
NTA : 'PERTt <I-64) 

1210 NEXT 1 

1220 CLS #2:PRINT 12,"DESEA CORREGI 
R ALGUNA SUB-CT A.(S/N)':0=2:I=38:V= 
1:X1=1:12=39:GOSUB 180:1F ALFAt='S' 
THEN 1230 ELSE IF ALFAt=‘N' THEN R 
ETURN ELSE GOTO 1220 
1230 CLS #0:CLS »2:PRINT «2,'QUE SU 
8-CTA OESEA CORREGIP':0=2:X=29:Y=1: 
X1=X:X2=30:GOSUB 180:P=ASC(ALFAt)-6 


4:PRINT ' SUB-CTA. "CHRt(P»64)¡" 
: “CHR$(34) ¡CUEN4(P);CHRt(34)' CUEN 
IA : 'PERTt(P) 

1240 CLS »2:PRINT 12,"NUEVO NOMBRE: 

":0=2:X=15:Y=1:X1=X:X2=35:80SUB 18 
0: IF a!fat=" THEN 1240 
1250 CUENt(P)=ALEAt 
1260 LOCATE 12,35,1:PRINT 12,’CUENT 
A *:0=2:X=45:Y=1:XI=X:X2=46:G03UB 1 
80: IF ALFAtCO" OR ALFAt>"9‘ THEN 1 
260 ELSE PERTt(P)=ALFAt:G0SU8 460:S 
ETURN 

1270 REH iiiHiwiHHiHim 
1280 REH *1 DEFINIR CUENTAS »« 

1290 REN imiHiiiHtimim 
1300 CLS ti:PRINT 12,'DESEA VER O C 
REAR CUENTAS (V/C) *:0=2:X=36:Y=1:X 
1=X:X2=37:GOSUB 180:IF ALEAt="V TH 
EN CLS *2:60T0 1310 ELSE IF ALFA!=* 
C" THEN CLS 12:GOTO 1350 ELSE CLS t 
2: GOTO 1300 

1310 PRINT 12,'POR IHPRESORA O POR 
PANTALLA (I/P) ':0=2:X=36:Y=1: X 1=X: 
X2=37:GOSUB 180: IE ALEAt=T THEN C 
0HP=8 ELSE IF ALEAt=‘P* THEN C0HP=0 
ELSE CLS »2:G0T0 1310 
1320 FOR 1=0 TO 3:IF SCUEN!(1)=” T 
HEN 1340 

1330 PRINT ICOHP,'CUENTA ‘I": 'CHP.t 
(34)¡SCUENt(I';CHRt(34) 

1340 NEXT:GOTO 1420 
1350 LOCATE fl,10,2;PRINT t!,"PARA 
BORRAR O DEJAR SIN UTILIZAR UNA CUE 
NTA PULSAR LA TECLA t": 

1360 FOR 1=0 TO 9 

1370 IE SCUENtíDO" THEN 60T0 140 
O 

1380 CLS I2:LQCATE »2,10,1:PRINT t2 
,'NOHBRE CUENTA "; 1:0=2:X=30:Y=1:X1 
=X: X2=50:G0SUB 180: IF ALFAt=" THEN 
1=1+1:IF KIO THEN GOTO 1380 ELSE 
1420 

1390 IF ALFAt=M" THEN SCUENt(I)=” 
ELSE SCUENt(I)=ALFAt 
1400 PRINT " CUENTA "I;': 'CHRt( 
34),-SCUENt (1) ,-CHRt(34):G0T0 1410 
1410 NEXT 1 

1420 1=0;CLS I2:PRINT 12,'DESEA COR 
REGIR ALGUNA CUENTA (S/N)':0=2:1=37 
:Y=l-.n=X-.X2=38-.G0SUB 180-.IE ALFAt= 
"S" THEN 1430 ELSE IF ALFAt='N" THE 
N RETURN ELSE GOTO 1420 
1430 as 10:CLS I2:PR1NT 12,"QUE CU 
ENTA DESEA CORREGIR:":0=2:X=30:Y=1: 

X1=1:X2=31:60SUB 180:CORR=VAL(ALFAt 
):PRINT " CUENTA "CORR": "SCUENtlC 
ORR):CLS I2-.PRINT 12, "NUEVO NOMBRE-. 
":0=2:X=15:Y=1:X1=X:X2=35-. GOSUB 18 
0:SCliENt(C0RR)=ALEAt 
1440 IF SCUEN$(CORR)="*' THEN SCUEN 
t(CORR)=" 

1450 G0SU8 4G0-.8ÜT0 1420 
1460 REN tHiimmmimtim 
1470 REH »» SALDOS ACUMULADOS tt 
1480 REH iHimmiiiHiHHiii 
1490 GOSUB 690:CLS thPRINT #2, "POR 
IHPRESORA D POR PANTALLA (I/P) ":0 
=2:X=36:Y=1:X1=X;X2=37:60SUB 180:IF 



ALFAt="I* THEN CDHP=8 ELSE IF ALFA 
t='P" THEN C0NP=0 ELSE CLS »2:60T0 
1490 

1500 pag=0 

1510 IE k=255 THEN PA0I=PAGI+l:k=0 
ELSE pagl=l:k=0 

1520 CIE *2:PRINT tco«p,SPC!2)¡clit 
;SPC(68-LEN(CLIt))¡"PAS. "¡PAGhPRI 
NT tco«p:PRINT tcoip:PAS=PA6+3 
1530 CLS I2.-PRINT tcoip,SPCI20);"BA 
LANCE DE SITUACION AL OIA "¡Ot¡"-"¡ 
NOtj*-19*¡YEARt:PRINT tCOMP,SPC(20) 

¡STRIN6t((36*LEN(HOt)),"-"):PRINT I 

coip:PA8=PA8+3 

1540 GOSUB 2530 

1550 POR p=0 TO 9 

1560 IE scuení(p)<>"" THEN PRINT te 
o«p,SPC(2)¡"CUENTA "¡scuenMphPRIN 
T tcoip,SPC(2>¡STRIN6t(LEN(scuent(p 
)) +7,*-"):PAG=PAG+2 ELSE GOTO 1630 
1570 FOR i=l TO 16 
1580 IE pertt(i)=CHR$(pM8) THEN PR 
INT tcoip,SPC(2)¡cuent(i);STRINSt(2 
5-LEN(cuent(¡)),' ")¡" *;CHR*(i+G4) 
*;¡GOSUB 1720:PAG=PAG+1 
1590 IE PAG=55 THEN GOSUB 2510 
1600 NEXT 

1610 PRINT IcoipiPRINT tco»p,SPC(4) 
¡-.GOSUB 1780 

1620 IF scuent(p)="" THEN 1630 ELSE 
PRINT tcoip 
1630 NEXT 

1640 PRINT tcoip,SPC(2)¡STRIN6t(74, 
'-*)¡PRINT tco«p:PRINT tcoip,SPC(6) 

;• Sumas '¡¡print tcoip,STRiNGt(20, 
’.’)¡" "¡USINS "ttitlllttl,"¡ABSIsa 
ltop);:PRINT tcoip," "¡USIN6 "It 
«ittil ti,"¡ABSIsalton)¡¡PRINT tcoip 
," "¡USINS ’tlltltltlt,"¡ABSÍSA 
LOO) 

1650 1P SALDDXO BOTO 1660 ELSE GQTQ 
1670 

1660 PRINT ICOHP,SPC(6)¡" SALDO "¡ 

:PRINT lco«p,STRINSt(34,'.’)¡SPC(l) 
¡USINS "tltttltltt,"¡ABS(SALDD):GOT 
O 1630 

1670 PRINT ICOHP,SPC(6)¡' SALDO "¡ 
¡PRINT tcoip,STR¡N8t(19|".")¡SPC(l) 
¡USING "Ittttttttl,"¡ABS(SALDD) 

1680 PRINT tcoip,SPC(2),-STRINGI(74, 
*-"):PRINT ICOHP,SPC(6)¡" TOTALES " 

;¡PRINT tcoip,STRINGt(18,");SPC(1 
)¡USING "ItttMIttt,ABS(SALDO-SAL 
TOP)¡:PRINT ICOHP," "¡USING "III 
ttttttt,"¡ABS(SALTON)¡GOTO 1700 
1690 PRINT tcoip,SPC(2)¡STRINGt(74, 
'-"J-.PRINT ICOHP ,SPC(6)-," TOTALES " 

¡¡PRINT tcoip,STRINGt(18,V)¡SPC(l 
)¡USING "tltlttlttl,"¡ABS(SALTOP)¡: 
PRINT ICONP,’ "¡USING '«ttttttt# 
»,"-,ABS(SALDO-SALTON) 

1700 PRINT tcoip-.PRI NT tcoip ,SPC(2) 

¡STRINGt(74, "= , ):saldo=0:salton=0:s 
altop=0:ho=0-, 

1710 PRINT «COMP:PRINT ICONP,SPCÍ40 
);'MADRID, A "¡Dt¡" DE '¡MQt;' DE 
19*;YEARt:60SUB 460:RETURN 
1720 FOR t=ENP TO fl 


1730 IF cuentat(t)=CHRt!i+64) THEN 
IF iiporteítKO THEN con=con+iiport 
e(t):conto=conlo+nporte(t) ELSE IF 
i«porte(t)>0 THEN cop=cop+iiportec 
t):copto=copto+i«porte(t): 

1740 saIdo=c op +< on +H0 
1750 NEXT:HO=SALDO:PRINT tcoip,USIN 
8 "tltlttlttl,"¡copj-.PRINT tcoip," 
';¡PRINT tcoip,USING "llillfltlt 
/‘¡con 

1760 salton=con+5alton:saltop=cop+s 
altop 

1770 con=0:cop=0:RETURN 
1780 PRINT tcoip,"SALDO CUENTA "¡í 
PC(47)¡-.PRINT ICOMp,USINS "tllltttl 
II,' ¡copto+conto: 

1790 copto=0¡conto=0:RETURN 
1800 REN iihhwhh 
1810 REH *« uinoows »* 

1820 REH «ummmim» 

1B30 HINDOH 10,1,80,1,17¡H1ND0H II, 
1, 80, 21, 25;HINDOH t2, 1, 80, 18, 20.-RET 
URN 

1840 REH liiiiimiimHtiimiiii 
1850 REH M LISTADO CARGO-ABONOS •» 
1860 REN mmifimmmmiitii 
1870 GOSUB 690:CLS thPRINT 12, "POR 
IHPRESORA 0 POR PANTALLA (I/P) "¡O 
=2:X=C'--Y=1:X1=X:X2=37:80SUB 180: IF 
ALFAt--’I" THEN C0HP=8 ELSE IE ALFA 
t="P" THEN C0HP=0 ELSE CLS I2:G0T0 
1490 

18B0 LIN=O:pi«=0-.pui=O-.SALP0S=0-,SAL 
NEG=0:SALDD=0 

1890 CLS 12:PRINT 12,"HES Y ANO DES 
DE EL QUE SE QUIEREN VER LOS DATOS: 
■•.0=2'.X=51-.Y=l-,Xl=X-,X2=55-.S0SUfl 180 
:MEt=LEFT t(ALFAt,2):ant=RIGHTt(ALFA 
t,2):IF MEí>"12" OR VAL(ANt)=0 THEN 
1830 

1900 FDR I=EHP TO Fl 

1910 IF (ANOt(I)=ANt AND N£St(l)>=H 

Et) OR (ANOt<1>>ANt) THEN PIH=PIM+1 

:A(PIN)=1 

1920 IF (ANOttI)=ANt AND HEStdXNE 
t) ÜR (ANOt(IKANt) THEN PUH=PUH*l 
:B(PUM)=I 
1330 NEXT 

1940 FDR 1=1 TO PUN 
1950 IE IMPORTE(B(I))>0 THEN SALPOS 
=SÁLÍDS+IMPORTE(B(I)> ELSE SALNEG=S 
ALNEG+IHPDRTE(B(1)) 

1960 NEXT 

1970 IF k=0 THEN pagi=pagi +1: k=255 
ELSE k=255:pagi=l 

1980 CLS I2:PRINT tcoip,SPC(2)¡dit 
;SPC(68-LEN(clit))¡"pag. "¡USING " 
tt’¡pagi:PRINT tcoop¡PRINT tcoip 
1990 CLS 12:PRINT tcoip," 

RELACION DE MOVIMIENTOS DESDE EL 
HES DE "¡Ht(VALÍHEI))j" DEL ANO 13" 
ANt¡PRINT tcoip,", ';STRI 

NGt(53+LEN(Ht(VAL(HEt))),"-') 

2000 LIN=LIN:5:60SUB 2570 
2010 PRINT ICOHP," SA 

LDO ANTERIOR";STRlNGt( 14," ')-,USING, 
"Ittttttttl,"¡SALPOSjiPRINI ICOHP, 
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• ■;USING ‘ll»llltlll,' , ;SALNEG;:PRt 
NI ICOHP,' *;USIK6 'tlllllllli,';S 
ALPOS*SALNEG:saldo=saldo+(SflLPOS+SA 
LNEG):LIN=LIN+1 
2020 FOR 1=1 TO PIN 
2030 1F LIN=55 THEN FOR R=l TO 10:P 
R1NT ICOMP:NEXT r:L1N=0:SOSUB 2560 
2040 PR1N1 IC0MP,SPC(2)jOIAt(A(I))i 
'-"¡HES!(Ad))¡ANOI(Ad) )¡" : 

PRINT ICONP,USING •«**•jA<I)¡:PRIMT 
ICOHP, 1 ‘¡CONCEPTOI(Ad))¡STRINS!( 
26-LEN(C0NCEPTQ!(A(l))),’ ')¡CUENTA 
»(A(I));;IF II1P0RTE(A(I))>0 THEN J= 
1 ELSE J=13 

2050 SALDO=saldo+IHPORTE(A(¡)) 

2060 PRINT tcoap,STRINGXJ,' ')¡US1 
NG 'lllllltlll,"¡IHPORTE(A(I))¡: 
2070 IF J=1 THEN PRINT ICOHP,SPC(!4 
)¡USING ■imuilll,'¡SALDO;ELSE PR 
INT ICOHP," '¡USIN6 'lllllltlll,'; 
SALDO 

2080 IF J=1 THEN SALPOS=SALPOS+INPO 
RTE(Ad)) ELSE IF j=!3 THEN SALNE6= 
SALNE8+IMPORTE(A(I)) 

2090 LIN--LINM 
2100 NEXT i 

2110 PRINT lcoap,SPC(2)¡STRINGI(77, 


’:PRINT #co«P,‘ TO 

TALES . "¡USING ’ 


llllllllll,"¡SALPOS¡¡PRINT tcoap,US 
ING 'lllltllllll l '¡SALNEG¡;PRINT IC 
OHP,SPC(1)¡USING *«*«*1*111*1,‘¡SAL 
POS+SALNEG 

2120 PRINT *coip,SPC(2)¡STRINS*(77, 

2130 PRINT *CONP:PRINT ICOHP,SPC(40 
Ij'HADRID, A '¡O!;' DE '¡HOtj' OE 
19';YEAR* 

2140 GOSUB 460:pu»=0:pí«=0:saldo= 0; 

RETllRN 

2150 REH 

ii 

2160 REH i« tr at amiento de errores 
ti 

2170 REH imiiiiiitimiiimimi 
n 

2180 IF DERR=146 THEN CLS «1:CLS 12 
:CLS:LOCATE 26,13:PRINT 'NO EXISTE 
EL FICHERO "noubreí:SOSUB 460:CLS I 
2:CLS:CAT:GOSUB 460;RESUHE 110 
2190 RESIIHE 110 
2200 REH 

2 ::: ":h «i borrar programa »* 

2220 REH iimiHHiiiiiiiHiH 
2230 CLS:CLS *1:CLS I2:PRINT ll,STR 
IN8I(35,"=")¡’ SUBMENU "¡STRINGK36 

, 

2240 PRINT II,’ l.PROGRAHA FACTURAS 
2.PROGRAMA RECIBOS 3.ABANDONAR O 
PCION 4.VOLVER AL MENU';STRING*(80 

2250 GOSUB 510:ON C GOSUB 2260,2270 
,2280,2290 

2251 RETURN 

2260 RUN "FACTURAS 1 
2270 RUN 'RECIBOS" 

2280 CALL O 


2290 RETURN 

2300 REH tnHHHHtimsHiiim 
2310 REH ii LISTADO POR CUENTAS i* 
2320 REH iimimimiiHHHiiH 
2330 GOSUB G90: CLS IUPRINT »2,"PC 
R IHPRESORA O POR PANTALLA d/P): " 

; 0=2: X=37: Y= 1: X l=X: X2=38:60SUB 180: 
IF ALFA*I' THEN COHP^ ELSE IF AL 
FA4='P" THEN COHP=0 ELSE CLS »2:G0T 
O 2330 

2340 CLS *2:PRINT *2, ‘NUMERO DE LA 
CUENTA SUE SE QUIERE VISUALIZAR: ': 
0=2:X=48:Y=1:XI=X;X2=49:GOSUB I80:V 
ISUA*=ALFA*: IF VISUAK’O" QR VISUA* 
>’9' THEN 2340 

2350 IF SCUENt(VAL(VISUA*1)=" THEN 
CLS I2:L0CATE 12,20,1:PRINT 12,'CU 
ENTA INEXISTENTE. PULSE UNA TECLA'-. 
CALL *.8B18:60T0 2340 
2360 PRINT ICOHP," ESTAD 

O DE HOVIHIENTOS EFECTUADOS EN LA C 
UENTA 'VISUA*¡*'SCUENt(VAL(VISUA* 
)):PRINT ICOHP,SPC(12)¡STRINGK49+L 
ENCSCUENt(VAL(VISUAt))),"-') 

2370 PRINT *co«p:PRINT Icoap,' F 
ECHA Nro. CONCEPTO 

DEBE HABER SALO 
O '¡PRINT Icoap,SPC(2)¡STRING!(77 
r 

2380 FOR 1=1 TO Fl-1 

2390 P--ASC(CUENTAI(I))-64 

2400 IE PERTKPIOVISUAÍ THEN 2450 

ELSE PRINT •C0MP,SPC(2);DIA*<I)}*-’ 

¡HES»(I)¡ANO*(I)¡* '¡¡PRINT IC 

OHP,USING ■HPjlpPRINT ICOHP,' ’ 

¡ CONCEPTO!(I)[STRING*(25-LEN(C0NCEP 
TOt(D),' ’:IF IMPORTECIJ>0 THEN 
J=l ELSE J=I3 

2410 SALDO=SALDOHHFORTE(I) 

2420 PRINT leo»p,STRING*(J,' ’!¡USI 
NG 'l*»ll*IMtt,'¡iriPORTE(n; 

2430 IF J=1 THEN PRINT ICOHP,SPC<14 
),-USING 'MIHIIIM,'¡SALDO:ELSE PR 
INT ICOHP,' '¡USING *41 tiltil**,'; 
SALDO 

2440 IF J=1 THEN COP=COP+IHPQRT£(I) 
ELSE IF j=13 THEN CON=CONMHPORTE( 
I) 

2450 NEXT 

2460 PRINT tcoap,SPC(21fSTRINS*(77, 
*-■).■ PRINT ICOHP,' 

TOTALES . '¡USING 

'1*1111*11,'¡COP;¡PRINT Icoap.SPCü 
)¡USING *11*111*1*1,’;CON;¡PRINT IC 
0HP,SPC(2)¡USING "Itllllllll,'¡OOP! 
CON 

2470 PRINT tcoap,SPC(2);STRINGtí77, 
'-") 

2480 PRINT ICOHP:PRINT IC0HP,SFC(40 
);'MADRID, A "¡DI-,’ DE *;H0*¡' DE 
19"¡YEAR* 

2490 con=0:cop=0:saldo=0 
2500 GOSUB 460:RETURN 
2510 PAGI“PAGI+1 

2520 FOR 1=1 TO 10:PRINT ICOHP:NEXT 
;PA6=0:PRINT ICOHP,SPC(70)¡'PAG. '¡ 


PAG I:PRINT ICOHP 

2530 CLSI 2:PRINT »coap,' CONC 
E P T O SUB-CTA DEBE ' 
HABER SALDO' 

2540 PRINT ICOHP,SPC(2);STRING*(74, 

'-"):PAS=PA6+2 

2550 RETURN 

2560 PAGI--PAGIH-.PRINT Icoap ,SPC(70 
)¡'PAG. "¡PAGI: 

2570 PRINT Icoap¡PRINT Icoap,* F 
ECHA No. CONCEPTO SU 

8-CTA DEBE HABER SA 
LDD':PRINT tcoap,SPC(2)¡STR!N6Í( 1 ', 
•-•):lin=lin+2 
2580 RETURN 

2590 PRINT II,STRIN6K27,•=•)!" SUB 
-CUENTAS DADAS DE ALTA '¡STRIN6K26 

i 

2600 FOR 1=1 TO 16:R!=CUENt(I);IF L 
ENÍRIX17 THEN Rt=Rt+STRIN6!d7-LEN 
(r*>,* ’) 

2610 PRINT*1,CHR*(24);CHR*(i+G4);*. 
*;CHRt(24)¡" *;LEFT*(rt, 16);* ',-:NE 
XT 

2620 RETURN 

2630 R!=N0HBRE*I'.FI4':QPENIN R*: IN 
PUT *9,TA-.F0R T=1 TO TA-.INPUT 19,1, 
NUHERO(T),I!,lt,HONORA(T),IVA(T),TR 
ANS(T),OESC(T):NEXT:CLOSEIN 
2635 GOSUB 2590 
2640 T-4T-I 

2650 FOR T=1 TD TA: 1=1+1 

2660 CLS I2:CLS:G0SU8 33O:L0CATE 41 

,3:PRINT USING 'Ht'¡I 

2570 LOCATE 29,5:PRINT 'FACTURA NO. 

: '¡USING ******¡NUKEROIT) 

2680 N$=**:FOR N=29 TO 50-.L0CATE N, 

5: Wt=W*+COPYCHR*(*0!:NEXT¡CONCEPTO* 
(1)=NI 

2690 o=0¡x=29:y=7:xl=x:x2=35:BDSUB 
180:IF alfa*=** THEN 2690 ELSE IF V 
AL(al fa*)=0 THEN 2690 ELSE IF LEN(A 
LFA*)<>5 THEN 2690 ELSE fecha*=alfa 
*:dia*(I)=LEFT*(fecha*,2):ano*(I)=R 
IGHT*(fecha*,2):ies*(I)=HID*(fecha* 
,3,2! 

2700 IF dia*(I)>*31 ‘ DR diatdX'Ol 
' OR lesKIX’Or OR aes*(I)>*12' T 
HEN 2690 

2710 o=0:x=29:y=9:xl=x:x2=30:SOSUB 
180:IF alfal="' DR ALTAICA' OR ALF 
A$>'P' THEN 2710 ELSE cuentald)=al 
(a! 

2720 IF CÜENI(ASO(CUENTA!(I))-64)= 1 
' THEN 2710 

2730 H=ASC(CUENTA!(I)):H=H-S4-.L0CAT 
E 32,9:PRINT ‘OTA '¡SCUEN!(VAL(PERT 
!(H))) 

2740 IMPORTE(I)=HONORA(T)-(HONORA(T 
)»DESC(T)/100) ’ 

2750 LOCATE 29,11,-PRINT USING 'lili 
II****;IMPORTECI) 

2760 I6!(I)="I”:LOCATE 29,13-.PRINT 

■I" 

2770 CALL E8B18 

2780 I=IH:CLS I2:CLS:80SUB 330:L0C 
ATE 41,3:PRINT USING "lll'jl 


2790 LOCATE 29,5:PRINT 'IVA S/FACTU 
RA ND.:'¡USING '*111';NUMERO(T) 

2000 «!=•':FOR N=29 TO 50:LOCATE N, 
5:til=HI+C0PYCHRÍ (10) ¡NEXT: CONCEPTO! 
(I)=tf! 

2B10 o=0 -. x=29 -. y=7 -. x 1=x -. x2=35-.G0SUB 
180: IF al fal=" THEN 2690 ELSE IF V 
AL(alfa!)=0 THEN 2610 ELSE IF LEN(A 
LFA!X>6 THEN 2610 ELSE lecha!=il(a 
l:dia!U)=LEFTI(feclial,2):anol(I)=R 
IGHTKfecha», 2); «es* (I )=MIO!( lecha* 
,3,2) 

2820 IF diat(I)) , 31 > OR diaKIX’Ol 
' OR •esKIX'Ol" OR aesfdO’tf' T 
HEN 2810 

2830 o=0:x=29:y=9:xl=x:«2=30:60SUB 
180; IF alfa!=" OR ALFAICA' OR ALF 
AI>'P" THEN 2B30 ELSE cuenta*(I)=al 

(a! 

2040 IF CUENI(ASC(CUENTAI(I))-G4)=" 
’ THEN 2830 

2850 H=ASC(CUENTA!(D):H=H-64:L0CA1 
E 32,9:PRINT 'OTA '¡SCUEN!(VAL(PERT 
!(H))) 

2860 IHPORTEd)=(HDNORA(T)HVA(T)/I 
00 ) 

2870 LOCATE 29,I1:PRINT USING 'lili 
•lili*;IMPORTE!I) 

2880 16!(I)="I":LOCATE 29,I3;PRINT 
•1* 

2B30 CALL 18BIB 

2900 1=1+1 :CL3 *2;CLS:G0SUB 330:L0C 
ATE 41,3:PRINT USING "Hl'jl 
2910 LOCATE 29,5:PRINT ’G, ENVIO FR 
A. NO.:‘;USING 'IMI'¡NUHEP.O(T) 

2920 H!=":FOR N=29 TO 50;L0CATÉ N, 
5:HÍ='A! +C0PYCHR!(*0) ¡NEXT :C0'iL2?‘Tj! 
d)=Hí 

2930 o=0:x=29;y=7:xl=x:x2=35:GOSUB 
180:IF alfa!'” THEN 2690 ELSE IE V 
Al(alfa!)=0 THEN 2930 ELSE IF LEN(A 
LFAI106 THEN 2930 ELSE fecha!=alfa 
!: d ia! (I)=LEFTí(fecha!,2):ano!(I)=R 
ISHTK fecha!,2):ies!(I)=HIDI(fecha! 
,3,2) 

2940 IF diaf(I)>*31 * OR diat(I)<*01 
■ OR aesKIX'Ol' OR aesldiní' T 
HEN 2930 

2950 O--0.-X--29,-y=9:x 1-x.- x2-30.-GOSUB 
190: IF al fa!=" OR ALFAICA' OR ALF 
A!>"P" THEN 2950 ELSE cuenta!(I)=al 
fa! 

2960 IF CUEN!(ASC(CUENTA!(I» -64) 

' THEN 2830 

2970 H=ASC(CUENTA!(1)):H=H-64:LOCAT 
E 32,9 ¡PRINT "CTA ' ¡SCUEN!(VALÍPERT 
!(H))I 

2980 IMPORTE(I)=TRANS(T) 

2990 LOCATE 29,11:PRINT USING 'lili 
Hllt'ilNPORTEd) 

3000 IS!(I) =*I"-.LOCATE 29.13-.PRINT 
•I' 

3010 CALL AB81B 
3020 NEXT 
3030.FI=FI+(TA»3) 

3040 NV!=N0HBRE!+'.FI4':1ERA,NV! 
3050 RETURN 



Todot lot Hitadai gum 
incluyan mita logotipo 
to ontuontron a tu 
ditpotitión mn ditto. 

Solítitmnoilo. 
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GEM BASIC 


Los usuarios del Basic 2 probablemente necesiten tener 
a mano una miniguía de los errores del sistema a mano. 
En este artículo ofrecemos parte,'junto con un genera¬ 
dor de programas que les será muy útil. 

Por: Juan Antonio Illescas 


■STREAH II;CUS 
•SCREEN TEXT FLEXIBLE 

Jkiít'.n» huí lur-.r .y u.üt, 


Rutinas 

financieras 

En cualquier aplicación 
financiera u otra que maneje 
números, se suele representar un 
número por letras. Este truco 
hace este proceso, con números 


comprendidos entre 
—999.999.999.999 a 
999.999.999.999, sin decimales; 
cifra suficientemente grande. 
Introduciendo la cifra, dará el 
resultada. 

«' (c) J.A.I.A. 

»’ Redondito de wliieios de cualquier 
lonqitud. 


■WINDOM CURSOR 
•REPEAT 

«INPUT "Número: *,n1í 
•LEE ds=s-VAL(n11) 

•UNTIL ds=0 
*posi-IN$TR(n!í,*.") 

*IF posi)0 AND VALíMlDttnlt.posi+l, 
1>>>4 Mil n2=VALÍMI0*Cnl* ( posi-l J 1 
))+l:n2t=S 

Tfi$(n2):n2LNIDJ(n2»,2,lí:HIPítnl*, 
posi-1)-n2t 

•IF posi>0 THEN tí-LEFTt(nl$,po 5 i-l 
) ELSE tl=nlt 

•PRINTiFRINT "El núíiero redondeo es 
: >;t» 

•PRINT "Pulse una teda, "¡iJ=INPUT$ 
( 1 ) 

• RUN 


Generador 
de programas 

En el tercer disco de los de 
sistema (el verde) y en el 
directorio Basic2/Ejemplos/ hay 
un programa, Ejemplo3.BAS, 
que sirve para dibujar. Sería 


muy útil, para hacer nuestra 
pantalla de un programa, 
dibujarla con la ayuda del ratón 
y luego que genere el programa 
en Basic. Este truco hace esto 
mismo: genera automáticamente 
un programa sobre los datos del 
dibujo realizado, grabándolo en 


un fichero especificado. Para 
esto hay que hacer un dibujo 
con el programa Ejemplo3.BAS, 
grabar los datos en un fichero, 
ejecutar este truco, introducir los 
nombres de los ficheros (el de 
datos y el del programa) y saldrá 
el solo. 


•’ (c) J.A.I.A. 

i' 

i 1 Generaciín autoiática de pro 
granas gráficos, 

i 1 Tras haber hecho el/los di 
bujos con el 

•'programa EJEMPLOS.BAS del disco 3 
de los discos de sistema. 

«' 

•OLEAR 

•RECORD cir¡cod BYTE,xl WORD,yl MOR 
D,radió WORD 

• RECORD otro;cod BYTE,xi WORD,yl WD 
RD,x2 WORD,y2 WDRO 

■DIH al«$(l T0 100) FIXED 17 
•3TREAM IliCLS 
■SCREEN TEXT FLEXIBLE 
•WINOQW FULLiWINOOW OPEN 
•FILES 

•WINBOH CURSOR 
•REPEAT 

•INPUT "Fichero: ",ft 

• UNTIL f IND$(HK)* , :WIND0W CURSOR 
OFE 

«FRINT:FRINT TABC20);EFFECTS(64)¡"E 
spere, cargando datos," 

•al#=0 

•OPEN «5 INPUT f$ 

• WHILE NOT EOF(5) 

•alm=ali+l 

•INPUT l5,ali$(ali),otro.cod 
•INPUT t5,ali$(ali).otro.xl 
•INPUT Í5,al»t(al*).otro.yl 

• INPUT l5,ali$(ala).otro,:<2 


•INPUT i5,alií(al»).otro.y2 


• al*2=aU2el 

IWENO 


•cod=al«l(ala2).otro.cod 

•CIOSE 15 

• 1F a 1 1=0 THEN PRINT:PRINT "No hay 


• 0N cod G0SUB punto,recta,recuadro, 

ningún dato en el fichero. Pulse un 
a tecla, 


•PRINT 15,x» 

WHILE INK£Y$="* ; WEND:RUN 


•WEND 

•LABEl otra 


■CL0SE tj 

•CLS 


•FRINT:FRINT TAB(20);" Proceso conc 

•WIND0W CURSOR 


luido, Pulse una tecla." 

•INPUT "Noibre de fichero a donde g 


■REPEAT:UNTIL INKEYO-1 
iFUN 

rabar: ",f2S 


•LABEL punto 

• IF FINDÍ(f2$)<>* ’ THEN PRINT EFfEC 


•x$="PL0T"+3TRI(al«í(al«2).otro.xl) 

TS(64);’EI fichero ya existe. ¿ Sob 


"+37RI(ald(ali2).otro.yl) 

reescribo 


•RETURN 

el fichero ? ( S/N) " iREPEAT:ii=UF'PER 


•LABEL recta 

t( INPUT$(1)):UNTIL il="N" 0R it="3" 


ixt="LINE’+3TR*(aI.»(ali2).otro.xl ) 

:IF i$="N" 


+"¡ , +STP$(als$(aU2).otro.yl)t" "+S 

GOTO otra 


TRKalitta 

•F'RINT:PRINT TAB(25) ; EFFECTS(64) ; "E 


li2).otro.x2)+"¡ , tSTR$(al«$(ali2).o 

spere, generando prograia," 


tro.y2) 

•OPEN 15 0UTPUT (2$ 


•RETURN ‘ 

•PRINT 15,"' Prograea generado por 


•LABEL recuadro 

los datos del fichero "+UPPER$(fí) 


• x$="B0X*+STR$(al»Kal»2).otro, xl) + 

•PRINT 15,*" 


"; "+3TRt(al»$(ala2).otro.yl)+","+ST 

•PRINT 15,’’ (c) J.A.I.A." 


Rí(al sí(al 

•PRINT 15,*" 


«2).otro.x2),"+STRÍ ( al »$(al»2).ot 

•PRINT 15,"STREAN IliCLS" 


r o. y 2) 

•PRINT 15,"SCREEN GRAPHICS 640 FIXE 


•RETURN 

0,200 FIXED" 


•LABEL circuní 

•PRINT 15,"USER 3PACE 8178,5000" 


•x$="CIRCLE"tSTR$(3l»í(ali2).cir.xl 

«PRINT 15, "WINDOW FULL-.WIND0W OPEN" 


)+";*+STR$(ali$(al«2).cir.yl) " +S 

•PRINT 15,"GRAPHICS COLOR 1* 


TRKaliKa 

•alt2=0 


li2),cir.radio) 

«WHILE a 1a<>al«2 


•RETURN 
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Comprensión 
de programas 

En un programa en Basic, las 
líneas REM, las líneas en 
blanco, etc., son inútiles y 
quitan velocidad a la hora de la 
ejecución del programa. 
Mediante este truco, todas estas 
líneas son eliminadas (o trozos 
de ellas) de un programa 
grabado. 


i' (c) J.A.l.A. 

«' Eliminador de líneas ‘REH‘, espa 
cios y lineas sin ordenes'. 

«STREAH #1:CLS 
■SCREEN TEÍT FLEXIBLE 
«HINDOH FULL:MINOOH OPEN 
«FILES ■«.BAS'iCLOSE «5 
«WIKDOW CURSOR 

■REFEAT:INPUT ‘Fichero! ",lítUNTIL 
FINÜÍdUO" 

«HINDOW CURSOR OFF 
*DIM lintd TO 2000) 

«PRINT TAB(20)¡'Procesando datos." 
«OPEN i5 INPUT ft 
■HHILE NDT E0F(5):n=nU 
«CINE INPUT 15,1 iníín) 

«HHILE RIGHTIU tní(n), 1)=" " 0R RIG 
Hfídinífn), 1)=V¡liní(n)=LEFTÍ(li 
ní(n),LEN( 

1 int(n))-l):HEND 

«HHILE LEFTídiníIn), 1 )=* ’ 0R LEFT 
ídint(n),l) = ‘:‘:lin$(n)=RIGHTídin 
í (ri) ,LENd 
iní(n)M):UEND 

«IF LEFT$(1in$(n),i)=“'" DR lint(n) 
=‘‘ 0R LEFTídiníIn),4)=‘REN " TIIEN 
n=n-l ELS 
E GOSUB ver 
«HEND:CLOSE *5 

«PRINTiPRINT \ Grabo el fichero (S 
/N) 7, "¡ 

«REPEAT:xí=UPPERÍ(INKEYÍ):UNTIL xí= 
■S" 0R xi=‘N‘ 

«PRINT xí 

«IF xí=‘N‘ TIIEN RIJN 

«OPEN *5 OUTPUT LEFTÍI fí,INSTRIfí,* 

."))*‘REir 

«FOR x=l TO n 

«PRINT I5,hní(x) 

«NEXT 
«CLOSE 15 

«PRINT:PRINT ‘Pulse una tecla.x$= 
INPUTÍd): 

«RUN 



■p2=0:x=INSTRCl,linttn),‘):pl=0:x 
1=0:x2=0;no=0 
«HHILE x<>0 

ipI=INSTR(pl*l,liní(n),CHRÍ(34)) 

«IF pl>0 THEN p2=p2+i 

«IF p2=2 THEN p2=0 

«IF p2=l THEN x=!NSTR(x+i,liní(n),‘ 

:‘):60T0 salta 

«px=0 

«HHILE NIDÍC1int(n),x+1,1)=‘ * 
«linl(n)=LEFTtdiní(n) ( x)rHID$diní 
(n), x+2, LENdint(n))) 

*px=l 
■ HEND 

«IF px=l THEN no=0:xl=x3:x2=x4 
«IF no=0 THEN x3=xl:<l = INSTR(xld, 1 
in$(r»)," *):x4=x2:x2=INSTR(x2*l, lin 
í(n),'REN 

•) 

«IF xl=x+l 0R x2=x*l THEN liní(n)=L 

EFTídiní(n),x-l):x=0 ELSE x=lN3TR( 

x«l,linítn 

),*:•):no=1 

«LABEL salta 

«HENÍiRETURN 


Tabla de errores 

1. Error interno. 

2. Orden válida solamente un programa. 

3. Orden no válida en un programa. 

4. Error de sintaxis. 

5. Constante numérica no valida. 

6. Memoria llena. 

7. Desbordamiento de la pila de Basic. 

8. Demasiados puntos especificados. 

9. incongruencia de tipos. 

10. Palabra clave repetida o incorrecta. 

11. Demasiados subíndices o demasiado 
pocos. 

12. Linea demasiado larga. 

13. Nombre demasiado largo. 

14. Nombre ya utilizado. 

15. Programa grabado no válido. 

16. No puedo continuar. 

17. Matriz ya definida. 

18. Registro ya definido. 

19. Línea inexistente. 

20. Etiqueta inexistente. 

21. Rcturn no esperado. 

22. Else no esperado. 

23. Fi no esperado. 

24. Cend no esperado. 

25. Fend no esperado. 

26. Pend no esperado. 

27. Falta Next. 

28. Next no esperado o que no concuerda 
con For. 

29. Falta Resume. 

30. Resume no esperado. 

31. Falta Wcnd. 

32. Wend no esperado. 

33. Falta Until. 

34. Until no esperado. 

35. Falta Case. 


intercepción de errores. 
39-63. Frror desconocido. 
63. Error desconocido. 


36. Cese no Nota: El cuadratín indica el 

esperado. comien/n de una línea de 

37. No se puede Listado, en ningún caso 

ejecutar Resume Next. debe teclearse. Este 

38. Orden no adecuada en m ' sn, ° Astenia se ha 
utili/ado en el lis¬ 
tado del Ccm- 

base (pág. 

, , (76-80) de 

64. Disco protegido contra escritura. es(e n|i 

65. La unidad de disco no responde. mero. 

66. Error desconocido. 

67. Error desconocido. 

68. Dispositivo de salida no preparado 
(impresora, etc.). 

69-99. Error desconocido. 

100. Fallo al invocar el SO —veáse Oserr—. 

]01. FN no definida. 

102. Valor o matriz no definidos. 

103. Registro no definido. 

104. Desbordamiento. 

105. División por cero. 

106. Operación no válida. 

107. Valor fuera del margen de los enteros. 

108. Valor de parámetro inadecuado. 

109. Subíndice fuera de margen. 

110. Coordenada externa a la pantalla virtual. 

111. Ángulo fuera de margen. 

112. Registro demasiado largo. 

113. Matriz demasiado grande. 

114. Valor fuera de margen para clase 
almacenamiento. 


115. Cadena no suficientemente larga. 

116. Cadena demasiado larga para su destino. 

117. Fracaso de Val. 

118. Fracaso en la concatenación. 

119. Número no válido en la cnlrada. 

120. Cadena no válida en la entrada. 

121. Elemento de entrada demasiado largo. 

122. Error de Gcm. 

123 . No puedo abrir otro dispositivo . 

124. El canal ya está siendo utilizado. 

125. Canal no abierto. 

126. El canal es de tipo incorrecto. 

127. Error desconocido. 

128. La pantalla ya está siendo utilizada. 

129. Unidad no válida. 

130. Nombre de fichero no válido. 

131. Número de registro no válido. 

132. Número de registro demasiado grande. 

133. No encuentro la trayectoria. 

J34. No encuentro el fichero. 

135. Ya existe el fichero. 

136. Se ha rebasado el final de los Data. 

137. Se ha rebasado el final del Fichero. 

138. El disco está lleno. 

139. Denegado el acceso al fichero. 

140. No puedo borrar el directorio actual. 

141. Ficheros de registros c índices 
inconsistentes. 


142. Fichero de registros o de índices no 
válido. 


143. Tamaño de registro incorrecto. 

144. Posición no encontrada. 

145. Cadena de posición incorrecta. 

146. Incongruencia de tipos de clave. 

147. No se ha cstabl cedo I a posición 
actual. 

148. No se ha encontrado la posición 
actual. 

149. Indice ya definido. 

150. índice no definido. 

151. índice con una clave idéntica para 
registro. 

152. Clave no única. 



Creemos que esta sección, como otras muchas de la revista, cobrará mayor realce si es 
realizada por nuestros lectores paro nuestros lectores. Por ello, invitamos a todos a que 
nos manden sus ¡deas y descubrimientos acerca del Gem y del Gem Basic. Todas las ideas 
seleccionadas contarán con un estupendo regalo sorpresa. Por favor envíen sus cartas a: 

Amstrod Personal. Cira, Irún km 12,400. 28049 MADRID. Referencia Gem 
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MSDOS 



mero vamos a ver 
una serie de coman¬ 
dos del DOS que al 
principiante le vendrá 
muy bien aprender y 
practicar, y al menos 
profano, entre los 
que habrá más de 
uno/a que ya domi¬ 
ne, no le vendrá mal 
repasar. 



Por 3. A. ECHAURI MS DOS para todos 


¿Cómo visualizar 
el contenido 
de un fichero? 

Existen varias formas para 
saber qué es lo que contiene un 
fichero de datos o un programa, y 
una de las más comunes y 
utilizadas es usar el mandato 
Type. 

Con Type podremos visualizar 
el contenido de cualquier cosa que 
tengamos en el ordenador, pero 
que la visualización sea legible o 
no depende enteramente del 
formato que tenga lo que 
queremos ver. 


De todas formas probad a 
visualizar tantos programas como 
ficheros, y veréis la diferencia. 
Para esto, sólo necesitáis teclear: 
Type Nombre del 
archivo/programa y a 
continuación pulsar return. Si 
queréis una visualización en papel, 
añadir después del nombre del 
fichero/programa: > PRN y 
tendréis un listado del contenido. 

¿Cómo visualizar 
el contenido 
de un disco? 

Tanto para visualizar el 
contenido de un diskette como del 
disco duro, la orden a utilizar es 
el mandato del DOS, DIR. 

Con DIR podemos ver el 
Directorio de cualquier unidad de 


almacenamiento de nuestro 
ordenador. Es probable que si 
tenéis una gran cantidad de 
archivos, ya sea en diskette o en 
disco duro, no os quepan todos 
en pantalla y tengáis que ir 
haciendo múltiples paradas 
(Ctrl + Break) para ver todos. Esto 
tiene otra solución que es teclear, 
después de DIR, /W con lo que 
se visualizará el Directerorio 
ocupando toda la pantalla a lo 
ancho, pero sin darnos el tamaño 
del archivo y la fecha y hora de 
creación. 

O bien tecleando después /P 
con lo que, cuando la 
visualización ocupe una página, se 
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todos los datos que tenga, en el 
caso de que tengan algo ya 
grabado. 


parará esperando que pulsemos 
una tecla y visualizará otra 
página, y así sucesivamente hasta 
el final. Cuando hablamos de 
página nos referimos a 
«pantallazos». 


¿Cómo preparar 
un diskette 
de trabajo? 

Los diskettes que compráis en 
las tiendas no están listos para 
poder trabajar con ellos, es 
necesario darles un formato 
especial para que el DOS los 
reconozca y pueda funcionar con 
los mismos. 

El comando necesario para esta 
operación es el Formal que 
prepara el disco para la grabación 
de datos y su posterior lectura. 

Tecleando Formal A: y 
pulsando return, este comando os 
pedirá que metáis en la diskettera 
el disco que queréis preparar, y 
una vez acabada la operación el 
diskette estará listo para trabajar 
con él. 

Tener cuidado y prestar la 
mayor atención a la hora de 
utilizar esta orden, ya que si por 
un descuido olvidáis teclear A\ 
después de Formal y estáis 
trabajando desde el disco duro, 
formatearéis el disco duro y la 
acción de formateo de un diskette 
o disco significa el borrado de 


¿Cómo preparar 
un disco 
de sistema? 

Para preparar un disco de 
sistema, o lo que es lo mismo, 
hacer una copia del DOS, es 
necesario formatear un diskette de 
una forma especial. 

El DOS consta de varios 
programas entre los que están dos 
ficheros que no se pueden 
visualizar utilizando el mandato 
DIR que hemos visto antes. Estos 
dos ficheros son los que se 
encargan de arrancar el DOS. 

Utilizando el mandato anterior 
Formal A: seguido de /S se 
consigue un resultado parecido, el 
diskette que utilicemos estará 
preparado para utilizar y, además, 
contendrá (aunque no lo podáis 
ver) los dos ficheros de carga del 
sistema. 

Si a continuación copiáis todos 
los programas del DOS a este 
diskette preparado, tendréis una 
copia exacta del DOS que estéis 
utilizando, y se podrá arrancar el 
DOS desde la unidad de diskettes. 

Podremos verificar que la 
preparación del disco se ha hecho 
bien cuando acabe la ejecución de 
la orden Formal A:/S. Entonces 
aparecerá un mensaje como este: 

xxxxx bytes es el espacio total en 
disco 

xxxx bytes USADOS POR EL 
SISTEMA 

xxxxx disponibles en disco 


La cifra de bytes usados por el 
sistema dependerá de la versión de 
DOS que estéis utilizando. 


¿Cómo etiquetar 
un disco o diskette? 

Aparte de la etiqueta adhesiva 
que todo el mundo suele poner en 
sus diskettes para saber lo que 
contienen, se pueden etiquetar los 
diskettes «por dentro». 


Si utilizáis el mandato DIR que 
hemos explicado antes, veréis que 
en los primeros mensajes de 
visualización del contenido 
aparece algo como esto: 

Volumen de la unidad A sin 
etiqueta 

Esta etiqueta nos la podemos 
crear nosotros con la ayuda del 
mandato Label. 

Si tenéis disco duro, con teclear 
desde el DOS el comando Label 
os pedirá que tecleéis la nueva 
etiqueta de un máximo de 11 
caracteres. 


Para diskettes teclear Label A: 
y pulsar return, os pedirá también 
etiqueta nueva para el diskette. 


MSDOS 


Esta operación la podéis repetir 
cuantas veces queráis y tener así 
algo más de información sobre el 
contenido de vuestros discos. 



¿CUAL ES SU IDEA? 


Si usted descubre, tras un uso exhaustivo de su PC, alguna idea, truco o método que considere novedoso y útil, mandénoslo a 
esta Sección. Le enviaremos un estupendo regalo sorpresa. Para mayor rapidez en la gestión de sus cartas, por favor indicar clara¬ 
mente en el sobre: Referencia DOS. Amstrad Personal. Ctra. Irún, km 12,400. 28049 MADRID. 
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PROGRAMAS GEM 


GEMBASE 


E L programa es una base 
de datos que utiliza 
ficheros aleatorios, 
búsqueda por diferentes 
criterios, impresión, etc. 

El programa ocupa ¡32 K!, 
por lo que sólo podrá ejecutarse 
si se tiene más de 58 K libres en 
la versión de Basic 2. Es 
recomendable no utilizar los 
accesorios del GEM ni mover las 
ventanas. Gembase es un 
programa muy completo y de 
fácil uso, que genera los 
siguientes ficheros: 

*.PBP Fichero donde están los 
registros. 

*.CAM Fichero donde están 
los campos, número de registros, 
formatos, longitudes, etc. 

*.OPC Fichero de opciones de 
impresión. 

AUTO.DB Fichero de 
arranque automático. 

Otras características son: 

— Gestor de errores 
incorporado. 

— Selección de opciones con 
las teclas del cursor. 

— Movimiento del cursor 
semi-libre. 

— Imposibilidad de pararlo 
(OPTION RUN). 

— Subrutina de presentación, 
con reloj, calendario y alarma 
(funciona en las principales 
partes del programa). 

La impresora utilizada para el 
programa es la Amstrad 


GEMBASE AÚNA 
POTENCIA, 

VELOCIDAD Y, SOBRE 
TODO, FACILIDAD 
DE USO EN UN 
PROGRAMA MUY 
COMPACTO 



Editar futu» ¿ilorw Trws ¿«ninas 


El Gembasic 
no es un simple 
juguete. Su potencia 
permite crear 
una excelente base 
de datos, con todas 
las facilidades del Gem, 
y muy rápida. 


DMP4000, por lo que es 
conveniente comprobarlo, si se 
emplean otras impresoras. 

Las variables y organización 
del programa están descritas en 
dos cuadros que se incluyen en 
este artículo. 

PRESENTACIÓN 


Cuando se arranca aparece 
una pantalla de presentación. En 
ella se muestra el nombre del 
programa, las teclas funcionales, 
el reloj, calendario y la alarma. 

Las funciones son las 
siguientes: 

Fl: introducir y activar la 
alarma. Si existía una sería 
cancelada. 

F2: activa la alarma. 

F3: desactiva la alarma. 

F4: ir al menú principal. 

Esc: cancelar introducción de 
la alarma. 


Por José Antonio Illescas 
MENÚS 


Las opciones de los menús se 
seleccionan con las siguientes 
teclas: 

Cursor abajo o barra 
cspaciadora: bajar a la siguiente 
opción. 

Cursor arriba: subir a la 
anterior opción. 

Orig: ir a la primera opción. 

Fin: ir a la última opción. 

MENÚ PRINCIPAL 

Consta de siete opciones, las 
siguientes: 

— Abrir fichero: 

Abre un fichero del disco. Si 
el fichero no existe, crea uno 
nuevo y pasa a la introducción 
de los campos (Instrucciones en 
el propio programa). 

Muestra el directorio «*.PBP» 
en la ventana 2. No es necesario 
introducir el tipo del fichero. 

Si hay un fichero abierto, 
mostrará un recuadro de 
diálogo. 

Teclas: 

Esc: cancelar opción. 

— Introducir datos: 

Sólo es posible cuando hay 
abierto un fichero. 
Comienza/continúa la 
introducción de nuevos registros. 
Los caracteres que admite cada 
campo depende del formato 
especificado. 

La línea continua significa el 
número de caracteres máximo de 
cada campo: 

Si el campo es de fecha la 
introducción está ajustada a los 
siguientes valores: 

Día: de 1 a 31. 

Mes: de 1 a 12. 

Año: de 0 a 99. 

Teclas: 

Del: borra el carácter 
anterior. 

Cursor abajo o Intro: salta a 
la siguiente posición del anterior. 

Esc: salir al menú principal. 

Si se pulsa Intro en el último 


■ 




































campo, salta a la introducción 
del siguiente registro. 

— Consultas y 
modificaciones: 

Es un menú con tres opciones: 

Registros: 

Modifica registros de 
diferentes maneras. Es otro 
menú con cuatro opciones: 

Por una especificación: el 
usuario introduce una 
especificación en el campo o 


campos que quiera, pudiendo 
utilizar alguna de las siguientes 
plantillas 

(espec. = especificación): 
*(espec.): busca un/os 
campo/campos que a la derecha 
tenga/tengan «espec.». 

(espec.)*: busca un/os 
campo/catnpos que a la 
izquierda tenga/tengan «espec.». 
*(espec.)*: busca un/os 
campo/campos que en el medio 


tenga/tengan «espec.» 

Si se pulsa Intro en todos los 
campos, seleccionas todos los 
registros. 

Una vez realizado este 
proceso, comienza la búsqueda, 
si se encuentra algún registro, lo 
visualiza, indicando el número 
del registro. 

Teclas: 

Del: borra el carácter 
anterior. 





I* ^rnttti ■ 

*' Personal Base 2000 Plus (v, 1,01 

1 

l' i»mi«mnlwii»mMimm«i 


i’ (c) Copyright Juan Antonio Ules 
cas Arenas 

i' Valladolid 1.9B7 

■CLEAR 

iON EPROR 6010 er 
•0P1I0N RUN 

l’—> Definición de ventanas. 
•CIOSE 

■STREAH M:CIS 

•SCREEN GRAPHICS 640 FIXE0,20D F1XÍ 
0 

•USER SPACE 8185,5000 

■UINQDH FULL:WIWD0U 0PEN:HIHIH)H CUR 

SOR 0FF 

•60SU8 titulo 

■H1KD0H 12 CL0SE 

•SCREEN 12 6RAPHÍCS b40 F1XED,50 F1 
TED 

«HINDDH 12 PLACE 0;117:VINDCH 12 T! 
TLE *r l C H E R 0 S* 

•SET 12 PDINTS 8 COLOR I F0HT 1 EFF 
ECTS I 

■ '—> Inicio. 

• OIN opefd T0 7),rc"* " ” !f ,cpc 
21(1 T0 3),op<21t(! T0 4),reg21(l T 
0 13),opc3 

Kl T0 6),opc4f(l T0 7>,opc4ll(l 10 
61 

•RECORD reg;regl(l T0 19) FIXE0 70 
■RECORD caijca» UBYTE,reg INTESER.c 
áspid 10 19) FIXED 25,forai(l T0 1 
9) FIKED 1 

ilofld T0 19) UBYTE.lot UU0RD 
•RECORD opcjcabKl T0 3) FIXEO 70,i 
•pl(l T0 3) FIXEO 3 
•r I1*STR1N61U330,0) 
•r2l=SlRIMSI(520,0):r3l=SÍRIN6l(219 
,0) 

•FOR n«l T0 7;READ opcÍ(n):NEXT 
l iFQR n=l T0 3:READ opc2»Cn).*NEXT 

•FOR n«l T0 4.-READ opc211(o):NEXT 
■FOR n l 10 6,'REAC opc31(n);NEXT 
•FOR n T T0 7:READ opc4$(n):HEXT 
•FOR n=l 10 5:READ opc4tt(n):NEXT 
■FOR n=l T0 3:IF ir-3 THEN r3l.opc.i 
•pt(3)-*132 p ELSE r3l.opc.íspl(n)=' 
0FF* 

■NEXT 

■bpf«CHR$(7):reg»l 
•S0SUB presenta 

•SET FONT 1 P01NTS 8 EFFECTS 1 COLO 
R I «OSE 1 

•co-0 

• TF FINDX’AUTO.DB'X)" THEN 0PEK 
18 RANMK "AUTO. DB’ LEK8TH 8:GET 18 
,fil«:CLDS 

E I8íaut-TRUE:fl*íill:nue=FALSE:G0S 
UB abrir2:íil=TRLl£ 

»' 

•'—> Nenú Principal. 

• «LA8EL «enu 



■GOSUfi sar 

•LOCATE 28;4:PRINI FONT(2);AOJUST(1 
8)¡■‘MENU PRINCIPAL* 

•FOR n s l T0 7:L0CATE lNT(40-LEN(opc 
Xn))/2);5+n»2:PRINT opcS(n):NEXT 
HF (il«TRUE THEN LOCATE 50|20:PRIK 
T 'Fichero: *;fl 

• If al<l THEN IF al<>7 THEN al=7:al 
2*1 

»pna=7:ult=19:ult>7 

•G0SUB barra:G0SU8 sar 

•ON al2 S0SUB abrir,intrO|Cofls,orde 

njr f fich,iipr,salir 

•GOTO senu 

i* 

■ »—> Salir. 

■LABEL sal ir 

■IF fil-TRUE THEW r21.caa.reg-reg:r 
2f.caa,caa ; caa:PUT 6,r2l:CL0SE 
■END 

i» 

■ ’—> Abrir fichero. 

■LA8EL abrir 

■IF fil=TRUE THEN rs=ALERT 3 TEXT * 
Hay un fichero abierto. ParaVab 
Mr otro h 

ay que cerrar el",'actual.’ 8UTT0 
N 'Continuar',RETURN 'Cancelar*:IF 
rs-2 THEN 

RETURN ELSE r2l.caa.reg=reg;r2i.caa 
,caa=caa:PUT 6,r2t:CL0SE 
■CLSiCLS 12:bl--' * 

• IF FINDK’i.PBP’X)” THEN FILES I 
2,'t.PBP'iNINOOH 12 OREN 

•60SUB file 

■NOVE 2650;lOOOrPRINT ‘FICHERO NUEV 
0* 

■K0VE 4050, 1 1000:PRINT 'FICHERO CREA 
DO* 

■ tf=": tot=8¡b=O:y I 30OO:x'1360:br ~I 
:nui T 0:Iot=0 

■REPEAT:GOSUB lmea:UNTIl t$<>" 

•IF i¿27 THEN RETURN 

■ fl=tl-.fil-TRUE 

■ IT INSTRUI, ( .")O0 THEN fUEHU 
<1, INSTRUI,V)-D 

•IF LEH(ft)>8 60T0 abrir 

■ IF FINDKff+’.PBP')*" THEN BOX 26 
00/933 1301^ 250 FILL WITH 0 HGDE 3* 
nue-TRUE E 

LSE BOX 4000;932,1350,250 FILL HITH 
8 RODE 3 

■FOR r»l T0 5000:NEIT 
iCLSiUINDON 12 CL0SE 
■LABEL abrir2 
■al=9:al 2^2 

• fHJPPERIffl) 

■ fll íf+\CAH*:f2i*íl+*.P8P':ff31->f 
l+'.OPC* 

■OPEN 6 RANDOK fll LEN6TH 520 

• IF nue-TRUE THEN nue-FALSE:6QT0 ca 
■pos 

•SET 6,r2t 

■caa-r21.caa.caa:reg a r21.caa.reg 

■FOR n=l T0 ca«:reg$(fi) -STRIH5I (r2f 

.caa. lon(n) ,0):NEXT 

■DREN 7 RANDQN f2» LENGTH r2f.caa.l 

ot 

■P0BITI0N 7 AT reg:br*0:bl«V 
•RETURN 


•LABEL caipos 

■CLS:60SU8 dibuja:caad 

•UNE 50;4100,6120¡4100 

•UNE 4000;20,4000;4400 

•UNE 4500;20,4500;4400 

•UNE 5000;20,5000;4400 

■NOVE 4000; 4550:PRINT 'Cupo ndaero 

■H0VE 14fl0;4150:PRINT 'Noabre del c 
aipo* 

■NOVE 4050;4150:PRINT *long.* 

■NOVE 4550;4Í50:PRINT Tora.* 

■NOVE 5500;4150:PRINT *INF0RNACI0N: 

•NOVE 5150;3800:PRINT *- El noabre 
del caapo puede ser* 

■NOVE 5150;3600:PRINT * cualquiera 
con un tixiao de* 

•NOVE 5150;3400:PRINT • 25 caracte 
res alfanuaéricos.' 

■NOVE 5150;3100:PRINT la longit 
ud puede ser de 1* 

■NOVE 5150;2300:PRIHT * hasta 60 c 
arac teres.* 

■NOVE 5150;2600:PR1NT *• El fonal 
o puede ser de tres' 

•«OVE 5150;2400:PRINT * tipos:* 
•NOVE 540Q;2100:PRIHT CHRS(250)♦’CA 
1- Al íanuaérico.’ 

•NOVE 5400;I900:PRINT CHR«2S0)»*[N 
]- Nuaénco.' 

•NOVE 5400;I700:PRINT CHRI(250)»*[F 
]- Fecha.* 

■NDVE 5150;1400:PRINT *- Se pueden 
introducir hasta 19* 

■NOVE 5150;1200:PRINT • caapos,* 
•NOVE 5150;900:PRINT *- Pulse ESC e 
n el priaer caapo* 

•NOVE 5150;7O0.-PRINI * para terain 
ar.’ 

■<-4000 

•REPEAT 

• IF i =27 THEN t =*+200 
■NOVE 5200-,4550-PRIMT caí 
it-i-200:b'0:nui'0:t$ *':y 400:tot * 
25 

•REPEAT 
■60SUB linea 
«UNT1L »<>** 0R í =27 
■ir i-27 60T0 fin 

•r2f.ca«.caapi(caa)-tl:nua*l:tot 2: 

y*4100:tl-":b 0 

■REPEAT 

•GOSUB linea: tt=VAUt$)jtt=FII(tt): 
ti*5TRl(tt). , tl «IDÍ(tl,2,lENU$)):t 
t=0 

■UNTIL VALÍti)>0 AND VALU1X61 
*r2l.caa.Ion(caa)íVAUtl) 

■nui-'O.’b ^0: tt: y =4600: totM 
•REPEAT 

•GOSUB linea: tWfPPERICtf) 

■UNTIL tl a *A* OR U«T 0R tl*’F* 

■IF tl="F* THEN r2t.caa.Ion(caa) 8 

• r2l.caa.foril(caa) *tl:cai--caa+l 
■LABEL fin 

•UNTIL (í €7 ANO cai>l) 0« caa-20 

■caa«ca>-l 

■FOR n r l T0 caa 

■r21.caa.Iot-r2f.caa.lotn21.caa.lo 

nín) 


■NEIT 

•OPEN 7 RANDQN !2t LENGTH r2l.cac.l 
ot 

■br-4hbl=* /'.reg=l 
•RETURN 

i' 

i'™) Introducir datos. 

■LABEL intro 

■IF fil-FALSE THEN RETURN 
■CLS:GOSUB dibuja 
■UNE 2550; 20,2550; 4400 
•NOVE 5000;4550:PRINT 'Registro:* 
■G0SU8 dib.cai 

■FOR n=l TO cai:rll.reg.regUn)s**i 

regl(n) r ":NEXT 

■«HILE -1 

1x4200: regí ; '* 

■NOVE 5800;4550:PRINT reg 
■FOR n*l TO caa 
■GOSUB rutina 

■IF i*27 AND n-l THEN NDVE y;x:PRJN 

T */¡RETURN 

■x*x-200 

■NEIT 

•FOR a 4 TO caa:rll,reg.regl(a)-* F ¡ 
regl’fegl»regl(a)-)iEXT 
■PUT 7,reglrPOSITI0H 7 NEIT 
■reg teg+l 
■FOR n 4 TO caa 
■NOVE 2600;4400-n*200 
«If r21.caa.foral(n)=*f* THEN PRINT 
' J J ..* ELSE PRINT STRIVSI(r2l. 
caa.lon(n) 

i'M 

■NEIT 

■VENO 

i» 

■*—> Consultas y aodificaciones. 
(Heñí) 

■LABEL cons 

■ IF ftlaFM.SE THEN RETURN 
■GOSUB borae 

■LOCATE I7;5;PRINT F0NT(2);ADJUST(I 
8) 1 ,•CONSULTAS Y NODIFICACIONES* 

■FOR n=l TO 3:LOCATE 1NTÍ40 LEN-íopc 
2l(n))/2);8+n*2:PRlNT opc2l(n):NEIT 

■ al*lO:aI2-l. , prii-«al:ult--14:ult2=3 
■LOCATE 50;20:PRINT 'Fichero,■ ';(! 
•S0SU8 barra-GOSUB sar 

•IF al2 8 THEN al2-2:al=9:RETURN 
•ON al2 GOSUB registros plantilla 
■GOTO cons 

■'--> Registros. (Hendí 
■LABEL registros 
■GOSUB borae 

■LOCATE 32;5:PRINT FONT(2);ADJUST(l 
8);'REGISTROS* 

■rOR n-l TO 4:LOCATE INT(40-LENCopc 
2l$<n))/2);8+n»2:PR!NT opc2ll(n):NE 
IT 

■aM0:al2d:pna-'a¡:ulW6:ult2'4 
•LOCATE 50;20:PR1NT 'Fichero: fl 
■GOSUB barra:GOSUB sar 
■IF al2 *4 THEN RETURN 
■DN al2 GOSUB reg _espec,reg _nua,tod 
os 

■GOSUB aar:G0T0 registros 
■'--> Consultar/aodificar registros 
por una especificación. 

■LA8EL reg.espec 


■CLS:GOSUB dibuja 
■PÜSITION 7 AT 1 
■UNE 2550;20,2550;4400 
■GOSUB dib.caa 

■i-4200:aadi l:nua-0:r2 ; D:bl-\* 

•FOR ni TO caa:regl(n)=’*:rll.reg. 

regl(n)--**:NEIT 

■FOR rnl TO caa 

■GOSUB rutina 

•IF i 27 AND n-l THEN NOVE y;x:PRIH 
T *_*:RETURN 
• x-x-200 

■ NEIT 

■FOR n-l TO caaireglveglXegKnJ’.r 

eg21(n)'regl(n):Nfir 

■tt=0:reg2=0:bor=l 

•REPEAT 

■tl=ttM 

•SET 7,reg2l 

•GOSUB parte 

■POSITION 7 NEIT 

■UNTIL e*t OR reg-tt 

■ IF e s 0 THEN i 27*.reg2 -4) ELSE e O-.I 
F i «9 THEN GOSUB borra.reg ELSE r 
eg4l=”:FD 

R O’I TO ca«veg41-reg4Hregl(o)-NE 
IT:PUT 7,reg41 AT L0C(7M:r«g2'I 
■LABEL opl 
■REPEAT 

■ ir (tt=reg-l ANO r337) OR Ctt I A 
ND i 329) THEN LOCATE 79;I¡PRINT bp 
♦ *i 27 

■HHILE tt<reg-1 ANO (i037 OR rl3) 
:11 =tt♦ 1 tPOS 1TION 7 HEIT-.GET 7,reg2 
1:GOSUB pa 

rte’.lF e'l THEN e*C*.reg41""-.FOP. o- 
I TO caa:reg4l feg4l*regl(o):NEIT:P 
UT 7/eg4! 

:IF r2>0 THEN r2v2-l ELSE reg2-reg 
2*1 

■HENO 

■HHILE tt>l AND i-329:tt’4t-l:6ET 7 
,reg2! AT tt:G0SUB parte.lF ed THE 
N eO :l -r 

2+1:regí--”:FOR o t TO caa:regl-reg 
l+regl(o):NEIT:PUr 7,regl 

■ HENO 

■IF i-339 THEN 60SU8 borra_reg:POSl 
TION 7 AT tt: GOTO opl 
■UNIR i=27 OR reg-tt 

■ IF reg2 I THEN NOVE 2000i4550-«IN 
T ’No ray ning » registro con esa e 
specificac 

lón.* ELSE NDVE 2000;4550:PRINT *Nd 
aero de registros encontrados: ’jre 
g2;* No 

hay ais registros. 1 

■HINDQH TULE ’tll- Entrar otra esp 

ecificación, 12)- Salir.’ 

«aod, : 3.jOr*C 

■REPEAT 

■il'INXEYt 

■ IF i!=M" THEN GOSUB titulo:G0T0 r 
eg.espec 

•UNTIL il-*l* OR il-*’2* 

■GOSUB ti tul o:RETURN 

Consultar/aodiíicar por niaer 

o. 

■LABEL reg nua 
■CLS 












LA GRAN 
VENTAJA 
DE UNA BASE 
DE DATOS 
ESTRIBA EN QUE 
EL ORDENADOR 
ES EL QUE 
REALIZA EL 
TRABAJO DURO. 


Intro: salta al siguiente 
campo. 

Del: borra el registro actual 
(pedirá confirmación). 

Cursor abajo o Intro: salta a 
la siguiente posición del siguiente 
campo. 

Cursor arriba: salta a la 
siguiente posición del anterior 
campo. 

PagArr: salta al anterior 
registro según la especificación. 


PagAbj: salta al siguiente 
registro según la especificación. 

Esc: fin de la búsqueda. 

Una vez finalizada la 
búsqueda, visualiza el número de 
registros encontrados. 

Por el número: el usuario 
introduce el número del registro 
que quiere ver. Pudiéndolo 
modificar lo que desee. 

Las teclas son las mismas que 
el anterior apartado. 


■SOI 2300;80l>, 3500,1200 F1LL «1JH 8 
COLOft 5 

■SOI 2300:000,3500,1200 
1801 275')¡ 1300,2600,250 FILl U1TK 0 
■ y 3500:x• 1350: tot 18:nua'l:regi-" 
:b- 0 :t»*":b»=* * 

■NOVE 2800;xsPftlNT ‘Núaero: 1 

■PEPEAl 

■SOSUB linea 

■tt»VALU»> 

UNTIL tt>0 ANO INSTRUI,V)=0 ANO 
tt<reg 

■°DSIT[0N ? AI ttrGET 7,reg2l 
ifOR n-1 T0 cai:rl».reg.reg»(n)*": 
regl(n)»":NETT 
iCLS:SOSUB dibuja 

HIÑE 2550;20 r 2550;4400:SOSUB dib.c 

ai 

•bor 1 
■SOSUB pon 

i ir 1 -339 THEN SOSUB borra.reg EISE 
reg*»“*:F0R n*l T0 caasreg» regl+r 
eg»(n>:NEX 
T:PUT 7,regi 
■bor =0 

iHINDQB TULE "113- Buscar otro reg 
udro. C23- Salir.' 

■REPEAT: ilHNKEYHIF il-'l' THEN G0 
SU 8 titulo:SOTO reg nua 
•UNTIL il-'l' 0R í*= , 2* 

■SOSUB titulosRETUPN 

i 1 —) Ver/«odificar todos los regis 

tros 

iLABEl todos 

■CLS:60SUB dibujiíLINE 2550;20,1-550 
;4«00:SDSU8 dib.caa 
ireg 2 0:ti=":b=0:nua4):iodi - 1 :tod 
1 

■F0P n-1 T0 (ir.reglín)-"■.rll.reg. 

regl(n)--":NEXT 

■POSITION 7 AI 1 

■op=l 

■LABEL op2 
iFOR tt*op IQ reg-1 
■SET 7,reg2» 

1 GOSU 8 pon 

HF i*27 THEN tt'-reg ELSE regl-":F 
OR t2-l 10 cai:regl*regl*reg»lt2):N 
EXT:PUT 7, 

reg»:IF i<>329 THEN POSITION 7 NEXT 
HF r339 THEN G0SUB borra.reg:op--t 
t:POSITION 7 AT tt:60T0 op2 
HF i 329 THEH IF tt>l THEN POSITIO 
N 7 AT ttMitt tt-2 ELSE tt‘0 
■IF i =335 THEN tt=reg-2:POSITION 7 
AT reg-1 

HF i-327 THEN tt=0:POSlTItHi 7 AT 1 

■NEXT:aodi“0:tod=B 

■UINDOU TULE '11J- Otra vez. 121- 

Silir.* 

■REPEAÍ:i|-INKEVI:lF i»*'!' THEN SO 
SUB titulo:6QT0 todos 
•UNTIL i* V 0R i$=*2’ 

•SOSUB 1 1 tul o:RETURH 

■'--> Ver/aodificar plantilla de ca 

■pos. 

■LABEL plantilla 
■CLS 

■B0I 1000;900,6008,3200 FILL HITH 8 
COLOR 5 


■BOX 1000;900,6000,3200 
■BOX 3300¡3000,1700,250 FILL HITH 0 
•BOX 2200;2000,2650,250 FILL HITH 0 
•BOX 5000;2000,<50,250 FILL HITH 0 
•BOX 5500;2000,300,250 FILL HITH 0 
■NOVE 3350;3060:PRINT ’Caapo núaero 

•■odi~l :pp=l íti=* , :t»=0:nu«=0:x=2060 
:b»*' ' 

■F0R n=l T0 caa 

■NOVE 4560;3060:PRIN’ n 

•NOVE 2250;2060:PRINT r2l.caa.caipl 

(o)¡¡PRINT STRIN6»(25-LFN(r21.caa.c 

aapt(n)),* 

•1 

•NOVE 5020;2060:PRINT r2l.caa.lon<n 

) 

■NOVE 5550;2060:PRINT r2».caa.lora» 
(n) 

ippH 

IREPEAT 

HF ppl THEN tot-25:nua-0:t»*r2».c 

aa. caap?''’ 1 • /-2250^83.8»LENÍtl) 

■ IF pp»2 THEN tot=2:nuMl:t*=ST«(r 
2l.caa.lon(n)):tl=RlSHTI(tÍ 1 LENUI) 
-1):y=5110 

♦89.6*L£NUD 

Hf pp*3 THEN toUi:nu«=0:t»v2l,ca 

a.for«»(n):y»5640 

ib»LEN(tt) 

■LABEL no_2 
•SOSUB linea 

HF ppH THEN r21.caa.caip»ín)*tl 
HF pp-2 THEN IF (VALltlXl 0R VAL( 
tS)>70) 60TO no.2 ELSE r2t.caa.loni 
nXVAKtH 

HF pp 3 THEN tHJPPÉMUDsJf tt<> 
•A' ANO tSO'N* ANO tlO'F* 60T0 flO 
.2 ELSE r2 

l. caa. foral(ii)=tl:IF tS=’F' THEH r2 
l.caa. lon(n) *6 

HF 1-13 THEN IF reg=l THEN pp=ppH 
•UNTIL pp=4 0R reg>l 0R ¡=27 0P i*3 
29 0R i*337 

•IF i=329 THEN IF n>l THEN n=n-2 EL 
SE n*n-l 

HF i=27 THEN n tai 

■ NEXT 

• IF reg=l THEH Iot--O:F0R n 4 TO caa 
; 1 otMot *r2l. c aa. I on (n) :NEXT: GLOSE 
7:0PEH 7 R 

ANDON Í2» LENSTH lot:r21.caa.Ut=lo 
t 

•aodi O 

iHINDGH TIFIE '[11- Otra vez. 123- 
Salir.* 

■REPEAT:i*»IHKEYl:If il-'l' IHEH 60 
SUB titulo:SOTO plantilla 
■UNTIL í«='l' OR i$="2*:bt=* 

■60SU8 titulo:60SUB lar¡RETURN 

a' 

■'—> Ordenar, 

■LABEL ordenar 

HF fil ¿FALSE 0R refl*I IHEN REIURH 

■CLS:60SU8 dibuja 

■LINE 2550;20,2550;4400 

■FDR n*t T0 caí:NOVE 100;4400-n*200 

:PRINT r21.cai.caapt<n):NQVE 260Q;4 

400-M200: 

PRINT 1 ':NEXT 


■NOVE 2100;-4550:PRINT 'ÍC1- Orden t 
reciente. (DI- Orden decreciente.' 
■b^O:tt-“*snui*0:tol»l:bf^* * 

■HHILE ti--" 

•y*2600:x--4200:n=l 

■REPEAT 

•SOSUB linea: tUJPPERlítl) 

HF i=13 AND tl=" THEN n=nH:N0VE 
2700;x:PRINT *_':x=i-200 
■IF i=27 THEN n=caa:t»=" 

■UNTIL n>caiH 0R tJ='C OR tl='D': 
caipo*n 

aUCNDsbt-". 1 

■NOVE 1B20;4550:PRINI 'Ordenando en 
orden *; 

HF tl-'C* THEN PRINT 'creciente '; 
ELSE PRINT 'decreciente *; 

■PRINT 'el registro n.: ' 

■POSITION 7 AT 1 

■roR ni*1 T0 reg-2 

■F0R n2*l T0 reg-nl-1 

■NOVE 5855;4550:PRINT ni 

■6ET 7,reg» AT n2:6ET 7,reg2» AT n2 

♦ l:sorf-"¡sortl=" 

■regl»-regl:50SUB ordena:sl»=sortl: 
regí»-reg2»:sor»-":sort» ":60SUB 
ordena 

■s2»«sort» 

•IF (sl»<=s2» AND tl='C') OR <sl»>« 
s2» AND tl-'D') 60T0 ahora 
•SHAP reg»,reg2» 

•PUT 7,reg» AT n2:PUT 7,reg2» AT n2 

♦ 1 

ILABEL ahora 
■NEXT n2,nl 

■HIND0W TITLE 'Base ordenada, Pul 
se una tecla para salir.* 

■REPEAT:UNTIL INKEYO-l:al2í:al 3 
•SOSUB titulo-.RETURN 

i* 

■’—> 6esti6n de ficheros. (Nenú) 
•LABEL íich:b»’-' * 

■ If FINDK'i.PBP')-" THEN RETURN 
■60SU8 borne 

•LOCATE 22;5:PRINT F0NTC2);ADJUSTCt 
8);'GESTION 0E FICHEROS' 

■F0R n-4 T0 6:L0CATE INT(40-LEN(opc 

3»(n))/2);6en*2:PRINT op<3»(n):NEXT 

•al -8;al2*i:pria*al:ult *tB:ult2=6 

■S0SU8 barra'üOSUB sar 

■IF al2*6 THEN al 3:al2*2:b»^'_':RE 

TURN 

■0N a!2 SOSUB borra,renaae,unir,aut 

o,del .auto 

■60SU3 nariSOTO fich 

•'--> Borrar un fichero del disco. 

•LABEL borra 

•CLS (2 

■FILES 12,.PBP':CLS:H1NDQU »2 CPE 
N 

•SOSUB file:SOSUB encon 

■NOVE 3180;2460:PRINT 'FICHERO A B0 

RRAR* 

■tl=":b 3 0:br=l:y-3BOO:x-1360:nun-0 
: tot -B:SOSUB linea 
HF i=27 THEN CLS:KIND0U 12 CL05E:R 
ETURN 

■ IF INSTRUI,'.')<>0 THEN t»iEFTSl 
t*,!NSTR(t»,VM) 

•IF LEHIt»)>8 0R ti " SOTO borra 


■If FlND*(t»r'.PBP'l=" THEN BOX 26 
00;932,1300,250 FILL HITH 8 N0DE 3: 
F0R n=l T0 

10000:NEXT:GOTO borra ELSE BOX 400 
0;932, 1350,250 FUL HITH B RODE 3 
■NOVE 3060;2460¡PRINT 'G0RRAN00 F1C 
HEROS ' 

HF tl-íl THEN CLOSE 

■ rs»KILL t»r*.PBP':rs4(ILL t»»'.CAN 
*:rs=KILL t»*'.0PC 

HF íilt=t» THEN DEL AUTO.DB 
•NOVE 2350;2460¡PRINT ' PULSE UN 
A TECLA PARA SALIR* 

■REPEAT:UNTIL INKEYO-1:br =0:CLS:MI 

NOOH 12 CLOSE 

■RETURN 

• r --> Renoabrar fichero. 

■LABEL renaae 

HF FINOK'i.PBP')--" THEN RETURN 
•CLS #2:FILES I2 i 'i.PBP':CLS 
■GOSUfl file:S0SU8 encon 
■UINDOH 12 0PEN:H0VE 3!50;2460:PRIN 
T 'FICHERO A RENONBRAR' 

■t$•":b*0:nun*0:br»l:tot -fl:y=3B00: 
x*1360:SOSUB linea 

■ IF i -27 THEN CLS:WIN00H 12 CL0SE:R 
ETURH 

■ IF INSTRUI, \')<>0 THEN t»*LEFTl( 
t»,INSTR(t»,'.')-l) 

■ IF t»*" OR t*-f» SOTO renane 

■ t»--UPPEfi»(t») 

■IF FINDIUH'.PBP*) " THEN BOX 26 
00;932,1300,250 FILL HITH 8 «ODE 3: 
FOR n=l TO 

10000:NEXT:SOTO renaae ELSE BOX 40 
00;332,1350,250 FILL HITH 8 RODE 3 
■NOVE 2350;2460:PR1NT ’ NOMBRE NUEV 
0 DEL FICHERO: '¡ti 
«íl» tl:t» *'-.b <hy 30OO-.X 4360-.H0V 
E yjxsPRINT STR1N0K8,' ’):SQSUB li 
nea 

HF INSTRUI, \*)(>Q THEN ti tEFTK 
t», INSTRUI, INSTRUI,\'>-l) 

■ IF t»=" 60TO renaae 

■ If FlNOKtH’.PBP'íO" THEN PRINT 
bpl:RDVE 2350;2460:PRINT ' CONFLIC 

TO DE NDHB 

RES'sfOR n=l TO 5000:NEXT:SOTO rena 

ne 

■ROVE 3I5Ü;2460:PRINT 'RENOMBRANDO 
FICHEROS 

INANE flle'.PBP' AS tH'.PBP' 

INANE íllr'.CAR' AS tlr'.CAN' 

■rs=NANE fl»»'.0PC' AS t»*'.0PC' 
•ROVE 2350;2460:PRINT ' PULSE U 
NA TECLA PARA SALIR* 

|REPEAI:UNTIL INK£Y<H:br 4:CLS:HI 

NÜOH 12 CLOSE 

■RETURN 

■ ’—> Unir ficheros. 

■LABEL unir 

■ IF FINDK't.PBP') *' THEH RETURN 
■CLS 12:FILES 12, '».PBP':CLS:HINDOH 

12 OPEN 

■SOSUB file:SOSUB encon 
■ROVE 2350;2460:PRINT ' PRIMER 
FICHERO PARA UNIR' 
■t*--'“:br=l:b - =O:nua=O:tot=0:y=38OO: 
x-1360:SOSUB linea 
■IF i-27 THEN CL5:UIHDDU «2 CLOSE:R 


ETURN 

■ IF INSTRUI, VÍOO IHEN tl=LEFT*< 
ti, INSTRU»,'.')-!) 

■ IF ti--" SOTO unir 

»*r riWKtn'.psp')-." then box 26 

00;932,1300,250 FILL HITH 0 HODE 3: 
SOTO unir 

ELSE BOX 4000;932,1350,250 FILL HIT 
H 8 NODE 3 

■<l* t»:t»*":b--0:y--3800iHGVE yjx:P 
RINT STRIN8K8,32) 

■NOVE 2350;2460:PRINT ' SEGUNDO 
FICHERO PARA UNIR' 

■G0SU8 linea 

Hf INSTRUI,'.*)<>0 THEN tlUEFUT 
t»,INSTRItl,'. *)-l) 

■ If tl=" SOTO unir 

■IF F!NDl<tt*',PBP')=" THEN BOJ 40 
00;932,1350,250 FUL HITH 8 NODE 3: 
BOX 2600;9 

32,1300,250 FILL HITH 8 NODE 3:SOTO 
unir 

■ f2IU»¡tl-":b-0:y38ÜO:HOVE y;x:P 
RINT SIRIN3I(8,32) 

■NOVE 2350;2460:PRINT ' FIC 

HERO EN DONDE UNIR* 

■SOSUB linea 

HF INSTRUI,*.')<>0 THEN tHLEFTK 
t», INSTRUI,'. *)-l) 

■ If t»-" SOTO unir 

■ IF FINQKtH'.PBP'ÍO" THEN NOVE 
2350;2460:PRINT ' ERROR EN L 
A UNION 

'¡PRINT bpl:FOR n-4 TO 5000:NEH: 
60T0 unir 

■BOX 2600¡932,1300,250 FILL HIÍH 8 
NODE 3 

■BDX 4000;932,1350,250 FILL HITH 8 
NODE 3 

■ íl»-UPPERl(fl»):f2» UPPEPH<2»):r2 
2»=STRIHGI(520,0) 

■ NOVE 2350; 2460:PRINT • 

UNIENDO FICHEROS ' 

■OPEN 16 RANDON flI+'.CAN' LENSTH 5 
20 

■OPEN 17 RANDON CIH.CAK' LENSTH 5 
20:trW;tr2»--" 

■SET 6,r2l:GET 7,r21» 

HF r2t.caa.caaOr2 11.caa.caa THEN 
NOVE 2350;2460:PR1 NT * ERROR 
EN LA UNI 

ON *:F0R n-1 TO 5000:NEXT:CLOSE 
¡SOTO ab 

■FOR n-t TO r21.C3B.caa:tr»=trHr2l 
.caa.caapl(n)rSTR»(r2».<a#.lw(n)l^ 
r2l.caa.fo 

rat(n):tr2l tr21*r2U.caa.caapHn) + 
STR»(r2ll.caa.lon(n))*r21l.caa.fora 
t(n):NEXT 

■IF tr»Otr21 THEN NOVE 235Q;2460:P 
RINT ' ERROR EN LA UNION 
*:FQR n«l 

10 5000:CLOSE:SQIO ab 
■OPEN 18 RAVOON tl+'.CAN* LENSTH 52 
0 

■r22l.caa.caa 'r2l.cat.caa 

■FOR n 4 TO r22t.caa.caa:r22l.caa.c 

aapl(n) r2!.caa.caap!(n) 

■r221.<aa.Ionfn)=r2».caa.lon(n):r22 

l.caa. forat(n> 3 r2l.caa.foralfn) 









Todos: presenta en pantalla 
uno por uno todos los registros. 

Además de las teclas, 
anteriormente explicadas, hay las 
siguientes: 

Orig: ir al primer registro. 

Fin: ir al último registro. 

Salir al menú anterior: sale al 
menú de consultas y 
modificaciones. 

Plantilla: 

Modifica los nombres de los 


íivt:. • r,- < A(*. 5r 4* * licíií í- 4 S!C? 



PODREMOS 
EXTRACTAR TODA 
LA INFORMACIÓN 
RELEVANTE QUE 
QUERAMOS 
DE UN GRAN 
VOLUMEN 
DE LA MISMA 
CON EXTREMADA 
SENCILLEZ 


campos, formatos y longitudes. 
Si se ha introducido algún 
registro, sólo se podrá modificar 
los nombres de los campos. 

Teclas: 

Intro: salta al siguiente 
concepto (longitud y formato). 

PgArr: ir al anterior campo. 

PgAbj: ir al siguiente campo. 

Salir al menú principal: 

Sale al menú principal y la 
barra de selección se pone en 


wni 

■r22i.cai.reg=r2*.cai.reg*-r2lt.caa, 

reg-l 

■r22t.ca«.lot*r2i.cdi. 1 ot 
iPUÍ 8,r22t;CL0$£ 

■OPEN 16 mm flk’.PBP* LFNGTH r 
2l.ui.lot 

•OPEN 17 RANDON (2K\P8P* LENSlH r 
2t.cda,lot 

■DPEN IB RANDON tK\PBP* LENBTH r2 
t.cda.lot 

■FOR u*l TO r2l.caa,reg-l 
■GCT 6,regU:P0$ITI0R 6 NEKT 
iPUT 8,reglt:P0SITlW 8 NEKT 
Hf alr 1 AND all-l£FTKTIHEI,8) TH 
EN S05UB sonar 
■NEKT 

■ r 0P n-l 10 r21t.ca».reg-l 

■GEf 7,reglt:POSITION 7 NEKT 

iPUT B,reg)i:PDSlTION 8 NEKT 

HfcIT 

•CIOSE 

•.ABEL ab 

■ir UlUl QR (2i-l< THEN 6QSU8 abr 
u2 

■AOVE 2350;2460:PRINT • PULSE U 
NA TECLA PARA SALIR* 
iREPEATtUNTIL IVKEVK>-1:br=0:CLS:WT 

i;:;* d ¿lose 

■RETURN 

■ '--> Crear fichero de arranque aut 
oai tico. 

■LABEL auto 

•ir FINDK*4.PBP*)=" THEN RETURN 
■CLS:CLS I2:FILES 12,*».PBP*:WIND0U 
12 OPEN 

■GOSUB fiIe:6DSUB encon 
•NOVE 2350;2460:PRINT * NDH8RE DEL 
FICHERO PAPA ARRANDUE* 
itt-*\b'-0;nui--0-.tot 8-.br 4*.y4B00'. 
t-- 1360:60SUB linea 
UF :-V THEN CLS-.NINDOH 12 CLOSE-.R 
ETUPH 

UF IHSTR(tt,*.*)<>0 THEN -.t-LEFTK 
tt, lHSTR(tí, *.*M) 

• IF tl-“ 60TO auto 
UF F!NDK.tK\P8P*)=** THEN BOK 26 
00;832,1300,251) FILL hlTH 8 HODE 3: 
F0P n-l TO 

10000:NEKT:60TO renaae ELSE BOK 40 
00¡932,1350,250 FILL WITH 8 flODE 3 
■OPEN IB RANDON *AUT0.DB* LEN6TH B: 
PUT l8,UPPEPKtl) :CL0S£ 18 
■br-0:rt3VE 235Q;2460iPRlNT * P 
ULSE UNA TECLA PARA SALIR * 
■REPEATr’JNTIL HlttíO-Ubr 0:CLS:WI 
NOOU «2 CL0SE 
•RETURN 

■ ’--> Borrar fichero autoaótico. 
■LABEL del.auto 

•IF F1ND».‘AUT0.DB*)=** THEN RETURN 
•DEL AUTO.08 
•filt '*:aut‘FALS£ 

•RETURN 

i* 

■'—> Iapresión, (Menú) 

•LA8EL upr 

UF fil-fALSE OR FIW»(*t.PBP*) =" 
THEN RETURN 

•col2-0:F0R n=l TO ca»:col2 col2+r2 


I.caa.Ion(n):NEKT:pg*0:*pl-'* 

I60SU8 borne 

•LOCATE SO;20:PRINT ‘Fichero? *;fi 

• LOCATE 31;4:PRINT F0W(2);ADJUST<1 

8); ‘IMPRESION 1 

•F0R n-l TÜ 7:L0CATE lNT(40-LEN(opc 

4t(n))/2)¡5rni2:PRlNT opc4i(n):N£KT 

•alM:al--7:pri«-7:ult*19:ull2'-7 

•60SUB barraiGOSUB sar 

UF at2*7 THEN i*p 0:al-9:al2»2:esp 

e-OiRETURN 

■ON al2 60SUB espe,horizontal # verti 
cal,opciones,cargar,grabar 
«5QSUB iar:68r0 tipr 

Especificación de búsqueda pa 
ra upresión en iipresora. 

■LABEL espe 

■CLS:60SUB dibuja:LINE 2550;20,2550 
; 4400 

■GOSUB dib.cai 

• x i 4200:bt-*,*:aotíi- l:up-l: espedí 
•F0R n-l T0 cae 

•oOSUB rutina 

• IF i -27 THEN ÍETURN 
■x=x-20ó 

•NEKT 

• TOR n-l TD caairegl-regkregt(n):r 
eg2l(n)=regKn):NEKT 

■RETURN 

•’-"> lapnair en horizontal. 

■LABEL horizontal 

•IF r3S.opc.iapt(2) *0K * THEN ver’ 

1 

■F0R n*l T0 caarrli.reg.regKn) - *": 
regt(n)=* , :NEKT 

UF <(r3i .opc .iipt(3) -'132* ANO col 
2>134) 0R (r3t.opc.iipt(3)='232* AN 
D col2>232 

)) ANO ver-0 THEN SOSUB pasal;RETUR 
N 

■POS1T10N 7 AI lsHlNOOd 12 TITEE *1 
N P R E S I 0 N‘ 

•CLS I2:PRINT I2:PRINT I2,S7RINGK2 
9,32);*lapri alendo listado.*:TEKI I 

2 FEED 2:P 

R1NT I2,STRIN6K30,32);'ESC- Para 1 
istado.'¡HINCON 12 OPEN 
•STREAK 10 
•PRIHT CHSt(27)i *0‘; 

•PRINT CHRt(27) * , N , fCHRt(5); 

•PR1NT CHRIÍI5); 

■PRINT CHRIÍ27)+'9'¡ 

■GOSUB cab 

■TOR tt-l T0 reg-l 

UF alr -1 AND all=UFTKTIHE!,9) TH 

EN GOSUB sonar 

•íUNKEí 

«GET 7,reg2t:P0SlTION 7 NEKT 
•IF espe=l THEN GOSUB parte 
UF e-0 AND espe 1 THEN 6DT0 no.iap 
ip-l:e-0 

■FOR o'l TO ca»:p2*r2t.ca«.lon(o):e 
WHDt(reg2l,p,p2) 

•«HILE INSTRCetjCHRt(7))>0:et=LEFTt 
(el, INSTR(et,CHRI(7)M) :W£KD 
■ regKo)=el 
ip-p*r2t.caa.Ionio) 

■NEIT 

UF ver~1 THEN SDSUB upniel ELSE 
60SUB íapriae 


■LABEL nojap 
UF »=27 THEN tt=reg 

• NEKT 

• PRINT CHRIU2) 

■STREAn IÍ:UIND0U 12 CLOSErUlNDCU I 
2 TITLE ‘FICHEROS* 

•RETURN 

■'—> Upresión en vertical. 

•LABEL vertical 
«ver-l;60SUB horizontal 
•ver-0:RE TUSA 

■ ’--> Opciones de upresión. (Nenó 
) 

■LABEL opciones 

• GOSUB boue 

■LOCATE 20;5:PRINT f0NT(2);ADJUSTf1 
8);‘OPCIONES DE IHPRES10N* 

■FOR n»I TO 5:LOCATE INT<40-LEN(opc 
41t(n))/2){7m*2:PRINT opc41t(n):NE 
XT 

•LOCATE 50;20:PRINT "Fichero: *;<$ 
•aI--9:al24:pru-1:ult--17sult2-5 

• FOR n=l T0 3:LOCATE 60-,9*ni2:PRINT 
EFFECTSÍ65)¡r3t.opc. íapt(n):NEKT 
•GOSUB bar ra:LABEL opc:60SUB sar 
UF al2-5 THEN al=7:al2-1:RETURN 
UF al2-1 THEN GOSUB cabecera:GOSUB 

•arrGOTO opciones ELSE 60SU8 opc2 
■GOTO opc 

■’--> Introducción de la cabecera i 
e upresión, 

•LABEL cabecera 
■CLS 

■BOK 100;3400,7900,900 
•POR n 4 T0 3 

■NOVE 200-^2 00-200<n:PRINT ’Cabecer 
a**STR$(n)4*: •♦STRING1Í70,*_*) 

• NEKT 

■nu» 0:b* *_*:x=400B:tot=70:tt=r3t. 
opc cabtd) -b~LEN(tI) • y-1275rb«81 6 
■FOR o*l 70 3 

■ NOVE 1275-,4200-o»200'.PRINT r3t xipc 
.cableo) 

■ NEKT 

■FOR n=l TD 3 
•GOSUB linea 

■ IF i=27 THEN GOSUB aar: RETURN 
■r3l.opc.cabt(n)=tl 

■IF i 328 ANO n>l THEN x*x*200:tl r 
3l.opc.cabl(n-l):y-LEN(tt)i89.6tl27 
5:b ; LEN(tt 

):n-n-2 ELSE IF i -328 THEN n=n-l EL 
SE x-x-200:y-1275:t*-*“:b~0 
UF (r-336 OR i -13) AHD n<3 THEN ti 
=r3l .opc .cabKn+D-.y l EN(tl)*89.6*1 
275:b=LEN( 
ti) 

■NEKT 

■RETURN 

U— > Activar/desactivar opciones d 
e upresión. 

■LABEL opc 2 

UF al2-=4 THEN IF r3í.op'.iipt(3)-*‘ 
132* THEN r3l.opc.iipl(3)-*232* ELS 
£ r31.opc. 

upl(3)=*132* ELSE IF r3t.opc.upK 
aI2-l)"'0F f* THEN r3l.opc,iipl(aJ2- 
I)--*0N * E 

LSE r3l.opc.iÉpKal2-l)-*0FF* 

■LOCATE 60;7*al2«2:PRtNT EFFECTSI65 


)jr3l.opc.iapt(al2-l) 

■RETURN 

■'--> Cargar opciones. 

■LABEL cargar 

UF F!N0t(ff3t) *' THEN RETURK 
■OPEN 18 RANDOH f(3l LENBTH 219:GET 
8,r3S:CLCSE 18 
•RETURN 

i 1 --) 6rabar opciones. 

•LABEL grabar 

•OPEN 18 RANDOH ff3l LENBTH 219:PUT 
B,r3l:CL0SE IB 
■RETURN 

■ ' 

•'—> Subrutinas. 

■ ' 

■'— > Error de upresión. 

•IA8EL pasal 

■ALERT 3 TEX1 ' Los caipoi sus tu 
yores gue la anchura',*de la hoja. 
Sel eccione 

upresión en ver-*,*tical.* BUTTON 
RETURN *0K* 

■RETURN 

i* —> t«pri»e cabecera y caapos por 
upresora. 

■LABEL cab 

lp 9 pgf| 

■PRINT CHRK27)+*6* 

•FOR t\'A 10 3: PRINT TAB( INTí (VAL(r3 

l.opc.iipt(3))/2)‘LEN(r3t.opc.cabt( 

n))/2));r3 

l.opc.cabKn); 

UF n=l AND r3l.opc.npl(l)-*0N * T 
HEN PRINT TAB(VAL(r3i.opc.upl(3))- 
32)-,*P4g in 
a: *¡pg ELSE PRINT 
■NEKTiPRlNT CHRK27)4*H*:PRI»T 
■ipl ** 

UF ver-I TKEN x'5-KTURN 
«FOR o-l TO caí 

• IF LEN(r2l.caa.caipKo))>r2t.caa.l 
or»(o) THEN ipl ipKr21.ca«.caapKo) 
U * ELSE 

ip=(r 2i. caí. Ion (o)-LENCr 21. caa.ua 
pl(o)))/2:ipl -ipKSTRÍNGKip,' *)*r 
2l.caa.caa 

pSCoKSTRINGKip,* *);ip O 
■ NEKT 

■PRINT TAB(2);jpl:PR)NT STRINSKLEN 
(lpl)+3,'**) 

•PRINT: x--B 
•RETURN 

•’—> lapnae registro en horwonta 

1. 

■LABEL iapriae 
•p=l 

•FOR o=l TO caa 

•PRINT TA8(pU>¡‘ *;regl(o); 

«p=p»r2l.ca».lon(o)42 

•NEKT 

■PRINT 

UF c=59 THEN GOSUB cab 

•x=xM 

■RETURN 

lapnae registro en vertical. 
•LABEL lapriael 

• IF x-59 THEN GOSUB cab-.xa-l 
•FOR o-4 TO caa 

■PRINT ÍAB(4)jr2l.u«.uapl{o)tV; 


TAB(30)jregi(o):x=xM 
UF x =59 THEN GOSUB cab:x=x-l 
•NEKT 

■ IF r31.opc.i^1(2) --*0N * THEN PRIN 
T CHRI(I2):G0SUB cab ELSE RRINTix x 
♦ 1 

■RETURN 

•'—> Dibuja selección de ficheros. 
■LABEL file 

■BOK 2300; 800,3500,1200 FUL MI TH 8 
COLOR 5 

■BOK 2300;800,3500,1200 COLOR 1 
•BOK 2GOO;932,1300,250 FILL HITH 0 

■ BOK 4000; 932,1350,250 FUL MI TH 0 
■BOK 2950¡1300,2200,250 FILL W1TH 0 
•NOVE 3000;1360:PRINT ‘Fichero: * 
•RETURN 

■LABEL encon 

■-OVE 2670;1000:PRINT *N0 ENCONTRAD 
0‘ 

■NOVE 4120;1000:PRINT * ENCONTRADO* 

•80K 2300;2400,3500,250 

■RETURN 

■'--> Separa caipo. 

■LABEL ordena 

UF ca«po>l THEN sorl-ffI0l(regll,r2 
S.caa.lon(c¿ipo-l)+l,r2l.cai.lontca 
apo)) ELSE 

sorí LEFTI(regl*,r2l.cai.lonícaapo 

)) 

UF INSIR(sorl,CHRK7)) 4) THEN sort 
I sorl ELSE sorlt lEFTKsorl, 1NSTR( 
sorl.CHRK 
7))-l) 

■RETUW 

Coaparación de búsqueda. 

•LABEL parte 
•a2-0:n-l 
■FOR nn _ l TO caa 

iWHILE RIGHTKregí'Knn) J)=CHRK7)-. 
regtKnn) tEFTKreg2$(nn) f LEN(reg?l 
(nn))-l):W 
END:reg3l reg2Knn) 

UF regat--** GOTO pl 
ipp-INSTR(reg31,‘»*);IF RTGHTl(reg3 
l r l)--*«* AND pp i THEN reg3l-fcEFTK 
reg3l,LEN{ 
reg3i)-I7:pe~1 

UF pp=l THEN ex-l:reg3l=R16HTKreg 
3l,LEN(reg3l)-l);pp*’-r 21. caa. )on(nn) 
ELSE IF p 

p>l THEN pp pp-l:reg3l=lEFTt(regjl, 
pp) ELSE pp lEN(reg3l) 

■p I 

UF nn>l THEN FOR o'l TO nn-i:p-p*r 
2l.caa.lon(o):NEU 

■ IF ex -1 OR pe-i THEN j--INSTR(NIOK 
reg2l,p,pp),reg3l>:IF j)p ANO j*L£N 
(reg3D»IN 

STR(reg2l,CHRK7)) AND ex-l THEN a2 
-i2U ELSE IF pe-1 AND j>p THEN a2 
•2+1 

UF ex=0 AND NIDl!reg2l,p,pp)=reg3l 
THEN a2u2*l 
■n fltl¡ex“4):pe O 
•LABEL pl 
■NEKT 

■n n-klF n a2 THEN e*l‘.IF iap--l TH 
EN RETURN ELSE G0SU8 pon 
■RETURN 





















PROGRAMAS GEM 


«Introducir datos». 

Ordenar: 

Aparece la plantilla de los 
campso y el usuario puede 
introducir una «D» para que por 
ese campo sea ordenada la base 
en orden decreciente o una «C» 
si es en orden creciente. 

Gestión de ficheros: 

Es un menú en que aparecen 
las siguientes opciones: 


Borrar fichero: borra un 
fichero especificado por el 
usuario. 

Renombra fichero: cambia el 
nombre de un fichero 
especificado por el usuario. 

Unir: une dos ficheros en un 
tercero, especificados por el 
usuario. Sólo es posible la unión 
cuando en los dos ficheros los 
campos, longitudes y formatos 


son iguales. 

Crear automático: crea el 
fichero «AUTO.DB» el cual, al 
arrancar el programa abre el 
fichero especificado 
automáticamente. 

Borrar automático: borra el 
fichero «AUTO.DB». 

Salir al menú principal: sale al 
menú principal. ■ 


i'—) Iipresión del registro selecc 
loriado. 

•LABEL pon 

IWWE 2000;4550:PP(NT ‘Registro: ‘¡ 
t? 

■P'l 

•rOR irrl 10 caí 
«p2-r2J.cdi.Ioníin> 

•el ‘!ID$(reg2$,p,p2);reg»i«n)-el 
iHHILE lNSrR(el,CM , »(7))í0:el-lEnf 
(el, ISSTR(e$ f CKI?Í C 7))-l): UCRD 
•rlt.reg.regidle* 

•NOVE 26t>0;4400-«n»200:PRlNT e*; 

■IT iodi*i AND r21.caí.íúf«t(in)=*F 

• AND el •* THEN PRINT 

•ir iotfi-1 AND r2$.caa.for«f(in)<) ( 
F‘ THEN PRINT STRIV64(p2-LEN<e$',*_ 
*) ElSE PR 

wr 

•p ptr2í.ca*.Ionf»n) 

INEXT 
IX=4200 

•F0R n*l Tí) caa 

•ti rlí.reg.reg*(n):b-LEN(rll.reg.r 
egt(n)):y ; 2600+b*89.6:tot ^í.cai.I 
on(n) 

•GOSUB r2 
■x = x-200 

•ir i=27 0P i=229 0R i=337 THEN n=c 

ai 

■lEXf 

•PETURN 

•KDVE 2600;4400-n*200¡PRINT STRIN61 
(r2s.ca*.lon(n>, 

i 1 — > Rutina de introducción de dat 
os de los registros. 

«LABEL rutina 

■ll-*‘:ti«-0: tot -r2i.cai.lon(ft):y260 
0:ante-0 
«LABEL r2 
•nui 0 

•xp*=r2t.cai.foral(n):IE xpS="N’ 0R 
xpí ‘F* THEN nuiM 
■SOSUB linea 
•LABEL otra 
•IF i=27 TREN RETURN 
ull.reg.regl(n)=tl:regl(n)-tlrSTRI 
NGl!i2$.cai.lon(n)-LEN(tS),7t 
•xpl -r 21. caí. foral(n)\tot=r2l .cai.l 
on<n) 

«IF íi-327 0R 1=335) ANO tod-1 THEN 
n-caa: RETURN 

«IF 1-339 AND ttúd=1 GR bor=l) THEN 
n-caa: R€TURh 

«IF i=13 AND n=caa THEN RETURN ELSE 
IF i-13 THEN r336 
HF i=328 AND n>l THEN ante*!:n*n-l 
:xpS:r?l.caa.(oral(n):b=LEN(rll.reg 
.regí(n)): • 

tl=r íl.reg. regí (n):tot=r2t.cai. Ion < 
n):K-x4203:y=2600+b*8S.51:IF xpl ‘N 
’ OR xpl-* 

F‘ THEN nui r l:6ÜSU6 hneaíSDTO otra 
ELSE nua 4): GOSUB 1 1 nea:6010 otra 
•IF i=336 AND n<caa THEN fl»n»l:xpl- 
r2l.caa.toral(n):b‘LEN(r11.reg.regI 
(n)):t!-rl 

l.reg.regl(n):lot r2l.caa.lon(n):x 
x*200sy-2600»b*89.5lJlF xpl-'N* 0R 
.xpl *F* TH 

EN nui=l:SDSUB linea:S0TO otra ELSE 
nua=0:GOSUB linea:60TO otra 

• IF 10336 ANO i<)328 THEN RETURN E 


LSE PRINT bp!:60SUB linea:60T0 otra 
l* —> Introduccidn de datos. 

•LABEL linea 
•i'INKEY 

• IF alr=l ANO aH=LEFTl(TIÍtEl,0) TH 
EN 60SUB sonar 

Hf (i=328 OR 1=336) AND br*0 THEN 
rr.t |,PRINT bS:RETURN 
■IF (i-329 OR i=337) AND ioíi=l THE 
N RDVE y;x:PRINT bl:RETURN 
•IF (i-327 OR i=335) ANO tod=l THEN 
AOVE y;x:PRINT bl:RETURN 
■IF i=339 AND (tod=l 0R bor-I) THEN 
NOVE y;x:PRINT bl:RETURN 
■ir i=*l OR i-7 OR i>255 THEN NOVE 
y;x:PRINT H0DE14);* *:60T0 linea 

i 

IE í=8anD b>0THEN b-h-I:NOVE y;x:PR 
INT bl:y y-89.51:tl l£FTlftl ( b):ir 
xpl-T'ANO 

(b 2 0P b=5)THEN b=b-liy=y-89.51:tl 
*LEFTi(tl,b):NOVE y;x:PRlNT ’.*:60T 
0 linea EL 

SE tl LEFTKtl.bJrHOVE y;x:PRlNT bl 
¡SOTO linea ELSE IF i -8THEN LOCATE 
79;1:PRINT 
bpi:GOTO linea 

i 

•IF i 13 OR i-27 THEN NOVE y;x:PRIN 
T bl:RETURH 

■IF nua«l AND (i>46 0R l<45) AND (i 
>57 OR i<481 THEN LOCATE 79;IrPRINT 
bpl:GOTO 

linea ELSE IF nuil AND i 45 AND b> 
0 THFN LOCATE 79;1:PRINT bpi:G0TQ l 
mea 

•IF b=tot THEN LOCATE 79;I:PRINT bp 
l:6OT0 linea 

■NOVE y;x:PRINT CHRl(i):tl=tl+CHRl( 
i):b b»t:y y+89.51 

■ IF xplO'F* SOTO linea 

«IF b-2 THEN IF VAL(LEFIl(tl,2))>3l 
OR VAL(LEFTl(tl,2)Xl THEN LOCATE 
79;1:PRINT 

bpt:y2600:b-0:tl=":HDVE y;x:PRIN 
T " _/*:60T0 linea ELSE t$=tU‘/‘:b 
b+í: y y ♦ 8 
9.51 

■ IF b 5 THEN IF VAL<NIDl(tt,b-í f 27>. 
>12 OR VAL(HIDí(tí,b-l,2)Kl THEN L 
OCATE 79; 1 

¡PRINT bp»:y=y-179:b*-2:MQVE y;x:P 
RINT ’__':tl=LEni(tl,b):60TO linea 
ELSE tí t 

l‘V':b=b*l:y=y*89.5l 
■GOTO linea 

■ ? --> Borrar registro. 

■LABEL borrajeg 

«rs-ALERT 2 IEIT * c Está totalient 
e seguro de querer*,'borrar éste re 
gistro'*' B 

UTTCN * SI *,RETURN * NO * 

•i 13 

■IF rs 2 THEN RETURN 
«reg reg-I 
■FDR o r tt TO reg 

■GET 7,regst AT oM:PUT 7,regs$ AT 
o 

■ IF alr-1 AND all--LEFTl(TIHEt.B) TH 
EH 6DSUB sonar 

■NEXT . 

•tt'-tt-l 

■RETURN 


i'—> lapnae los caapos. 

■LABEL dib.cai 

■FDR n=l IÓ canHOVE 100;4400-n»200 
:PRINT r21.caa.caapl(n) 

■«OVE 260Q;44Q0-n»20ó 
■ir rfora$(n)-*r* THEN PRINT 
'JJJ ^SE PRINT SIRINS!(r2!. 
caa.lon(n) 
rV> 

•NEIT 

•RETURN 

i'—> Dibuja aarco de introducción 
de datos. 

•LABEL dibuja 

■BOX 50¡20,8100,4800 

«L1NE 50;4400,0120;4400 

■«OVE 200;4550:PRIKT ‘Fichero: *;fl 

iRETURN 

•'--> Elección de opciones. 

•LABEL sar 
«i=INKEY 

• IF alr =1 AND al 1-LEFTiCTIME4,8) TH 
EN SOSUB sonar 

•IF i=-l SOTO sar 

■IF i-336 0R 1=32 THEN 60SU8 bajar: 
GOTO sar 

■ ir i 320 THEN G0SUB subir ¡GOTO sar 

■ IF i=327 THEN GOSUB barrasal *pni: 
a!2=l:G0SU8 barra:60T0 sar 

■IF i=335 THEN SOSUB barra;al=ult:a 
l2-ult2:G0SUB barra:60T0 sar 
■IF i=13 THEN RETURN 
•60TO sar 

•LABEL barra-.LOCATE I8;al:PRiNT EFF 
ECTS(65);«00£<3);* >*+STRINGK42,32 
)•'< * 

•RETURN 

■LABEL bajar ¡SOSUB barra; IF aJ2-Jt 
2 THEN al2*l:al pm ELSE «12-aI2*l 
:al *«1*2 

■6GSUB barra:RETURN 

■LABEL subir:SOSUB barra:IF a!2*l T 

HEN al2*ult2:al ult ELSE a!2~-al2-l: 

aI=al-2 

■GOSUB barra:RETURN 
i'—> Narco de los «enús. 

■LA8EL aar 
■CLS 

•BOX 1*,1,6180,4999 FILL MI TH 4 COLO 
R I 

•BOX 925;350,6175,4150 FILL MITH 8 
COLOR co 

■LINc 1000)400,7000)400,7000)4400,1 
000;4400,1000;400 MIDTH 2 COLOR 1 
•LIME 925;350,7075;350,7075;4500,92 
5;4500,925;350 MIDTH 4 COLOR I 
•RETURN 

■’--> Borra aenü. 

•LABEL borae 

• BOX i 100;450,5800,3800 FILL HITH 8 
COLOR 0 

•RETURN 

i’—> Presentación. 

•LABEL presenta 
■co=5:GDSUB aar 

•SET KOOE 2 FON! 2 POINTS 36 EFfECT 
S 1 

•GRAPHICS COLOR 1 
•LOCATE 31¡6:PRIKT ‘Personal* 
•LOCATE 22;9:PRINT ‘Base 2000 ‘¡EFF 
ECTS<4>;‘Plus" 

■SET FONT 1 POINTS 10 EFFECTS 0 
•LOCATE 56;11:PRIKT *v. i.OI 1 


■BOX 1642;2400,4842,1900 ROUNOED 
■LOCATE 18;20:PRINT CHRK189); ‘ Cop 
yright 1387 Juan Antonio lllescas A 
renas.* 

•NOVE 3400;820:PRINT ‘Alaria:* 

•NOVE 5300;820:PRINT H0DE(1);‘ OH ‘ 
«NOVE 5830;820:PRINT «DDE(l);‘ OFF 

■GRAPHICS MIDTH 3 

•BOX 5270;770,460,200 

■BOX 5800;770,560,280 

•BOX 2300;770,890,280 

■BOX 1170;770,900,2B0 

■801 4200;770,900,280 FILL HITH 8 C 

OLOR 0 

•BOX 4200;770,900,280 

■GRAPHICS HIDTH 1 

•BOX 1920;1500,4300,400 

•NOVE 2000;1720:PRINT ADJUST(8);EFf 

ECTS(1);‘F1,- Introducir alaria. F 

2.- Activa 

t alaria.’ 

«NOVE 2000;1520:PRINT AOJUST(8);EFF 
ECTS(l);* F3.- Desactivar alaria. 
F4.- Ir a 
1 Menú,' 

■SET HODE 1 
•LABEL reloj 

■ IF alnl THEN IF al$*LEFTI(TINEI,8 
) THEN 6CSUB sonar 

•GOSUB pon.reloj 

■ x-IHKEY:IF i-l OR i<314 GOTO relo 
J 

•IF i=318 THEN RETURN 

•ON i-314 60SUB alaria,act,desact 

«GOTO reloj 

■LABEL alaria 

• y 4230:x-820:b=0:al■O’.tf»" 

MQK y;x:PRINT 

•LABEL alana2 
•i’INKEY 

■GOSUB pon.reioj 

•IF i=27 THEN NOVE 4230¡820:PRINT S 

;y-y*iuu.u-u-t¡ir u-¿ un ü*j m 
EKb=b-l: y 

=y-100:t»*LEFT$(tf,b):HOVE y;x:PRIN 
T ‘:60T0 alaria2 ELSE tM.EFT*(t$ 
,b):N0VE y 

¡x¡PRINT ‘.‘¡GOTO alariaí ELSE IF i 
=8 SOTO a)aria2 

■IF i>57 OR i<48 1HEN NOVE y;x:PRIN 
T N0DE(3);‘.‘:60T0 alana2 
■NOVE y;x:PRIKI CHRí(i):y=y«100:b--b 
♦lst$ tt*CHRí(i> 

■IF b=2 AND VAL(LEFTS(t*,2))>23 THE 
N PRINT bpi:G0TQ alaria 

■ ir b 8 DR b =5 THEN IF VALfHIDKtl, 
b-1,2))>59 THEN y y-200:b b-2¡H0VE 
y;x:PRINT 

, _.‘:t*=LEFTI(tl l b):6DTD alana2 
■IF b=9 THEN alr=l;alt=t*:GOSU8 act 
¡RETURN 

• IF b'2 OR b'5 THEN b=b*):y -y+I00:t 
*=t• 

■GOTO alaria2 
•LABEL pon_reloj 

•NOVE 1200;”B20:PRINT LEFT*(TI«Et,8'- 
■HOVE 2320;820:PRINT DATES 
«RETURN 
■LABEL act 

■IF t$*‘‘ THEN RETURN 
«alr *1 

«NOVE 5830;820:PRINT * OFF ‘ 


«NOVE 530Q;82G:PRINT EFFECIS(64);‘ 
ON ‘ 

«RETURN 

«LABEL desact 

«IF t* = “ THEN RETURN 

«alr-0 

«NOVE 5300;820:PRINT • ON * 

«NOVE 5830;820:PRINT EFFECTS164);‘ 
OFF ‘ 

«RETURN 
«LABEL sonar 
«FOR n--[ TO 10 

«IF co t 5 THEN GOSUB pon.reioj 
«LOCATE 79;1:PRINT bpl 
«NEXT 

•IF c©=5 THEN 6QSU8 desact 

«RETURN 

«LABEL titulo 

■MINDOU TULE ‘Personal Base 2000 P 
lus* 

«RETURN 

i* 

■'—> 6estor de errores. 

«LABEL er 
■err2*ERR 

■IF ERR 138 THEN ALERT 1 TEIT ‘ El 
disco esti lleno. Borre fiche-*,‘r 
os o'caibi 

e el disco.* 8UTT0N RETURN ’0K*:RES 
UNE salir 

«ir ERR-139 THEN ALERT 1 TEXT * El 
fichero estA protegido contra',‘es 
entura. D 

esprotegalo usando la','orden ATTR 
IB del DOS o desde el GEN.* 0UTTON 
RETURN *QK 
•:RESUNE salir 

«IF ERR>2 AND E»R<3B THEN ALERT 1 T 
EXT * Ha coietido un error al tecle 
ar el pro- 

• f *gra«a. Revise el listado.*, “,'E 
rror: **ERR0R«err2) BUTTON RETURN 
’0r:RESUN 
E salir 

«ALERT 1 TEXT * Se ha producido un 
error de causas di-',‘versas.*,*', 
‘Error: *♦ 

£RR0Rt(err2) BUTTON RETURN *0K‘ 
«RESONE salir 

«'--> Opciones de los ienús. 

«DATA ABRIR FICHERO,INTRODUCIR DATO 
S,CONSULTAS Y flODIFICACIONES,ORDENA 
R,6ESTI0N 

DE FICHEROS,IMPRESION,SALIR 
«DATA REGISTROS,PLANTILLA,SALIR AL 
MENU PRINCIPAL 

«DATA BUSCAR POR UNA ESPECIFICACION 
,BUSCAR POR NUMERO,TODOS,SALIR AL H 
ENU ANTERl 
OR 

«DATA BORRAR FICHERO,RENOMBRAR FICH 
ERO,UNIR FICHEROS,CREAR AUTCRATICC, 
BORRAR AUT 

OMATICO,SALIR AL HENU PRINCIPAL 
•DATA ENTRAR ESPECIFICACION,IMPRIMI 
R EN HORIZONTAL,IMPRIMIR EN VERTIDA 
L,OPCIONES 

DE IMPRESION,CARGAR OPCIONES,GRABA 
R OPCIONES,SALIR AL HENU PRINCIPAL 
«DATA CABECERA,NUMERO DE PAGINA,REG 
ISTRO POR PAGINA,NUMERO DE COLUMNAS 
,SALIR AL 
MENU ANTERIOR 
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DOBLE 
POR ESTA LÍNEA | P 


>V. 


. . ZONA PARA QUE PEGUE S T ___ . 

<2ZZZZZZZZZZZZZZZZZZZZZZZZZ&22l 


y, V/. < 

v//y/XXXX\ 



Rellene este 
cuestionario 


Rellene por favor los datos que a continuación le pedimos así como 
su nombre, dirección y teléfono. 


enVienOSlO lo | Nombre y Apellidos _ 

antes posible y j Dirección _ ____ N? 

participe en el ¡ Escalera _ Piso _ Puerta _ 

sorteo de este Población _ _ C.P. 

fabuloso Provincia ___ _ _ Edad 

ordenador i Profesión __ Teléfono _ 


DOBLE POR ESTA LÍNEA ^ 

Con ello 
queremos 
agradecerles su 
colaboración 



¿Conocía Amstrad Semanal? 


□ Si 

□ NO 

¿Era lector asiduo? 


□ Si 

□ NO 

¿Qué números de Amstrad personal posee? 

□ 1 □ 2 

□ 3 □ 4 □ 5 

¿Es suscriptor de la revista? 


□ Si 

□ NO 

¿Qué ordenador posee? 

□ CPC 

464 

□ PC 1512 □ PCW 8256 


□ CPC 

664 

□ PC 1640 □ PCW 8512 


□ CPC 

6128 

□ PCW 9512 

¿Dispone de impresora? 


□ Si 

□ NO 

¿Para qué utiliza el ordenador? 

□ Gestión 


□ Estudios de Informática 


□ Programación 

□ Ayuda al estudio 


□ Juegos 


□ Otros 

¿Qué secciones de la revista 




prefiere? 

□ Gráficos para ordenador 

□ Hardware 


□ Juegos 


□ Logo 


□ Actualidad 


□ MS Dos 


□ Utilidades 


□ Otros lenguajes 


□ Basic 


□ Programación 


□ Pruebas Software 

□ GEM 


DOBLAR POR ESTA LÍNEA | 


/COMO DOBLAR SU CUESTIONARIO—. 



Separe el 
cuestionario 
cortando por la 
línea de puntos. 
Después doble por 
la primera linea de 
puntos. 

3.°/ J 




Siga doblando el 
cuestionario por la 
línea discontinua. 
(Ver dibujo). 


Una vez totalmente 
doblado sólo le 
queda doblar y 
pegar la última 
solapillla 


t 


¿Qué software utiliza habitualmente? 


Base de datos 

Hojas de cálculo 

Software Integrado 

Programación 

Gráficos (Díseñol 

□ 0 Base 3 

□ Multiplan 

□ Lotus 1, 2, 3 

□ Basic 

□ Art Studio 

□ 8oriart 

□ 

□ Sinphony 

C Ensamblador 

□ Auto Cad 

n 


n 

□ Logo 

□ G«m Rain! 




□ Pascal 

□___ 




0 C 





□ 



¿Qué secciones añadirla a la revista? 


¿Qué secciones suprimiría de la revista? 


¿Lee otras revistas de Informática? 


¿Cuáles? 















































Suscríbase 

ahora 

v beneficíese 

de grandes 

ventajas 

1 .° 

Sin moverse 
de su casa 

Todos los meses puntualmente 
haga el tiempo que haga usted 
tendrá en su hogar su revista 
AMSTRAD 

2 ? 

Un ahorro 
del 25% 

Al suscribirse ahora usted se 
beneficia de un 25% de 
descuento en el precio de cada 
revista 

3 . ° 

Un número más 
gratis 

Si usted se suscribe con tarjeta 
de crédito recibirá además un 
número más gratis 
(Oferta válida sólo para España) 

4 . ° 

Un 15% de 
descuento en los 
artículos 
HOBBY PRESS 

Al suscribirse a la revista 
AMSTRAD usted adquiere el 
derecho a comprar cualquiera de 
los artículos HOBBY PRESS con 
un 15% de descuento 


Más fácil 
Más cómoá 0 

Suscríbase 
por teléfono 

( 91 ) 734 65 00 


Respuesta Comercial 
Autorización n? 7427 
B.O.C. y T. n? 81 
de 29 de agosto de 1986 


HOBBY PRESS,S.A. 

Apartado nP 8 F. D. 

28100 ALCOBENDAS (Madrid) 


Si aún no la recibe en su domicilio 

SUSCRÍBASE AHORA 


Sotóte 
VenUlfl* 






tu*»* 

•ttüd 
«SWflto*' 


Si Ud. 
no está todavía 
suscrito a AMSTRAD 
este puede ser el momento de hacerlo 


No 

necesita 
sello. A 
franquear 
en destino 


I 



















LO ÚNICO 
DIFÍCIL 

DE ENTENDER 
DE NUESTROS 
PROGRAMAS 
ES LO INCREÍBLE 
DE SUS PRECIOS 


AVd. le costará realmente poco 
entender por qué Mlcrobyte es la 
empresa lideren software. 

La colección más completa de 
programas profesionales y de 
están a su disposición. 

Elija el programa más adecuado 
y obtenga el máximo 
rendimiento 

a su sistema informático 
Lo que tal vez, nunca 
sea cómo los mejores 
programas del mundo son 


- CONTABILIDAD 

- PAQUETES INTEGRADOS 

- GESTION COMERCIAL 

- HOJAS DE CALCULO 

- EDITORES DE TEXTO 

- BASES DE DATOS 
-GEM 

-CAD 

- UTILIDADES 

- INSTRUCTORES... 


Desde .. .... 7.900 Ptas. f i v a. 


Programas desarrollados por prestigiosas empresas 

ComoASHTON TATE, DIGITAL RESEARCH, SOFTRONICS, 
SEI, SPI, LOGIC CONTROL, AMSOFT, etc. 


Disponemos de una amplia gama de títulos, 

sol uciones y precios dentro de cada una de las siguientes 

aplicaciones: 


GRUPO AMSTRAD ESPAÑA 
Castellana, 1 79, 1 0 28046 MADRID Tels 442 54 33 / 442 54 44 / 442 58 88 / 442 58 99 


Si desea mayor información de nuestros programas 
solicite nuestro catálogo, hoja de producto o disco-demo. 


* 

















PATROL HYDROFOH MISSILE CRAFT SIMULATION 


PEGASUS 

La lancha rápida Hydrofiroil, vuela sobre el agua lanzando 
sus misiles, tan ágil que el enemigo no tiene segundos para 
reaccionar, tan mortífera que no hay una segunda oportunidad. 
Un auténtico simulador de lancha rápida, con gráficos en 
tres dimensiones y además, un juego de Electronic Ares. 

C-64, Spectrum, Amstrad. 


STREET HASSLE 

El era un honrado profesor de Universidad, antes de que 
se hartara y se volviera loco. 

Su deber ahora es limpiar de maleantes la ciudad, pero... 

;En su afán de justícia, será capaz de distinguir un 
delincuente de una inocente abuelita que pasea con su ierro. .'* 

C-64, Spectrum 


OUT OF TH1S WORLD 

Repentinamente la nave se sumerge en un mar de 
Rascantes lásers. Chuck traga saliva horrorizado, ¡¡¡"he 
entrado en otro mundo’’!!! 

Recogiendo los fragmentos de las naves que destruyas, (se 
te va a quedar el dedo pegado al disparador de tu nave), 
conseguirás la energía necesaria para salir a través de ocho niveles. 

C-64, Spectrum, Amstrad. 


DRO SOFT, Francisco Remiro, 5-7, 28028 Madrid, Telf. (91) 246 3802 


! 

« 


WEREWOLWES OF LONDON 

Te paseas a la luz de la luna. Hay sangre en las calles. 
¡Incluso las ratas huyen espantadas!. ¿Por qué tu estómago 
se para a chillar cada vez que te cruzas con un caminante? 
¿No serás tú...? ¡¡¡EL HOMBRE LOBO!!!. 

C-64, Spectrum, Amstrad. 














